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This publication describes the internal logic of the 
IBM System/360 Time Sharing System PL/I Compiler. 

Program Logic Manuals are intended for use by IBM 
customer engineers involved in altering program design. 
It can be used to locate specific areas of the program, 
and it enables the reader to relate these areas to the 
corresponding program listings. Program logic informa- 
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PREFACE 



This publication provides customer 
engineers and other technical personnel 
with information describing the internal 
organization and logic of the TSS/360 PL/I 
compiler. The material is divided into 
four sections and nine appendixes. 

Section 1 describes the overall organi- 
zation of the compiler and the relationship 
between the compiler and the time sharing 
system. 

Section 2 contains a general description 
of each logical phase of the compiler, fol- 
lowed by descriptions of the physical 
phases contained within each logical phase. 
Descriptions of the control modules and of 
the interfaces between the compiler and the 
time sharing system are also included. 

Section 3 consists of flowcharts, tables 
and routine directories. The flowcharts 
show the relationship between the routines 
of each phase, while the tables and direc- 
tories list the routines and their 
functions. 

Section 4 contains the layouts of tables 
used by the compiler, as well as formats of 
text and dictionary entries. 
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SECTION1: 



INTRODUCTION 



PURPOSE OF THE COMPILER 

The TSS/360 PL/I compiler analyzes and pro- 
cesses source programs that are written in 
PL/I and translates them into object data 
sets. These object data sets contain code 
that is not suitable for execution by TSS/ 
360. Therefore an additional processor, 
the object data set converter (ODC) , con- 
verts these object data sets to TSS/360- 
executable code. 

Usual output from the compiler consists 
of a load data set and a list data set, 
when these options have been specified by 
the user. A macro data set will also be 
produced when preprocessing is indicated 
(see "Preprocessing" in Section 2). 



THE COMPILER IN THE TSS/360 SYSTEM 
ENVIRONMENT 

The compiler consists of a series of logic- 
al phases that are under the supervision of 
compiler control routines; subroutines 
within these control routines provide what- 
ever services the compiler requires during 
compilation. Communication between the 
compiler and TSS/360 is achieved through 
the program language controller (PLC), 
which is the interface with the system. 
PLC performs a series of functions for the 
compiler at various stages of compilation 
and, finally, calls the object data set 
converter (ODC) after compilation, to con- 
vert the object data set to TSS/360 code. 

PLC — Interface With the Sys-em 

When the PL/ I compiler is invoked, control 
is transferred to PLC. This module acts as 
a communications area for user-specified 
options, and controls the sequence of 
events during invocation of the PL/I 
compiler. 

The PL/I compiler, unlike the TSS/360 
Assembler and FORTRAN compiler, cannot 
function until the source data set has been 
fully entered. Therefore, when compilation 
is called for, PLC searches for an input 
data set. If the named data set does not 
exist, PLC invokes the text editor to cre- 
ate the PL/I source data set. When a 
source data set exists, control passes back 
to PLC, which then calls the PL/I compiler. 

Depending upon user options specified, 
invocation of the PL/I compiler may cause 
PLC to act as interface for these 
functions : 



Creating a PL/ I source data set 
the text editor). 



(via 



• Converting separately created PL/ I 
object data sets to TSS/360 code via 
ODC. 

• Combining a list of PL/ I object data 
sets for conversion to TSS/360- 
executable code. 

• Performing multiple compilations within 
a single invocation of the PL/I 
compiler. 

• Changing implicit calls to explicit 
calls via the name processor. 

• Printing compiler- generated listings. 

The program language controller (Figure 
1) is a serially reentrant and sharable 
module containing recovery facilities used 
in case of interruptions. It can check, at 
any stage, the status of compilation; its 
recovery facilities permit compilation to 
proceed from the point of interruption or 
from the beginning. 

PLC may be entered at five main entry 
points. Initial entry to PLC occurs when 
the PL/I compiler is invoked. Depending 
upon the options specified by the user, the 
text editor, compiler, ODC, and/or the name 
processor, may be called. PLC's additional 
entry points provide for entry to subrou- 
tines used to perform the specific func- 
tions for which PLC is responsible at 
various stages of compilation: entry from 
the text editor after creation of the 
source data set, entry after compilation is 
completed to build the MERGELST, an entry 
point for handling data management func- 
tions, and entry to the language processor 
early-end routine. 



ODC — Conversion of Object Code 

The TSS/360 PL/I compiler produces code 
that is similar to OS/360 code. To trans- 
form the load data set, which is output 
from the compiler, into TSS/360 code, the 
object data set converter (ODC) resolves 
1 constants and reformats the module. 



PLC invokes ODC after completion of the 
compilations specified with a given invoca- 
tion of the PL/I compiler. ODC is called 
only once within an invocation, and then 
only if a merge list (MERGELST) or a merge 
data set (MERGEDS) has been specified in 
the options, or if the PL/I compiler has 
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The name processor constructs or updates 
the transfer data set only if: 

the user has read/write access to the 
transfer data set, and 

the default value of UPDTXFER is set to 
Y, and 

the EXPLICIT operand of the PLI command 
specifies names to be padded. 

The new name is derived from the old name 
by adding a pad character ('a 1 , or a dif- 
ferent character that the user specifies 
with the default value PADCHAR) to the left 
of the old name. 

PLC invoices the name processor after 
return of control by ODC, if the PLI com- 
mand included an EXPLICIT or XFERDS 
operand. Input to the name processor 
includes the PL/I communications bucket 
(CHBPLI) and a table of converted modules 
to be checked for name transformation 
(CHBMGL) . 



Figure 1 . PLC - interface with TSS/360 

created a merge list to accommodate a 
series of compilations. Input to ODC con- 
sists of the PL/I-compiled object data sets 
in card-image format (see Appendix J) . 
Output consists of the executable program. 
ODC stores all of the TSS/360-executable 
programs from one invocation of the PL/I 
compiler as separate members in one job 
library, resolving standard QCONs (pseudo 
registers) and passing others to the dynam- 
ic loader. In addition, ODC packs CSECTs 
as specified by the default value PLIPACK. 

Name Processor — Conversion of Implicit 
Calls to Explicit Calls 

The name processor is an optionally invoked 
routine that helps the user transform 
implicit calls to explicit calls. To do 
this, the name processor transforms exter- 
nal name references in the PMD of a module 
to new, unique names. In addition, for the 
new names to be connected with the subrou- 
tines that have the old names, the name 
processor optionally constructs or updates 
a line data set that is called a transfer 
data set and that has this format: 



0-7 


line number 


3 


X'OO 1 


9-16 


new name 


17 


blank 


18-24 


PLICALL 


25-27 


blank 


28-35 


old name 



The user must supply his own PLICALL 
macro to perform the explicit calling or 
loading of the subroutines. 



ORGANIZATION OF THE COMPILER 

The PL/I compiler comprises 12 logical 
phases, each of which consists of several 
physical phases, all under the control of, 
and serviced by, the compiler control rou- 
tines. A compilation is initiated by load- 
ing the compiler control routines from SYS- 
LIB. The control routines then carry out 
their own initialization and perform these 
functions : 

Act as the interface between the com- 
piler phases and TSS/360, controlling 
operations such as all input/output, 
storage allocation, program interrup- 
tions, and storage dumping. 

Supervise the loading and linking of 
compiler phases in accordance with 
source program options. 

Supervise all work space used by the 
compiler for information concerning the 
source program. 

Provide a number of routines to assist 
in compiler debugging. 

The entire PL/I compiler, including the 
control modules, is contained in six link- 
edited output modules (for contents of out- 
put modules, see Appendix K) . When the 
user-specified compiler options are inter- 
preted, it is determined which of these 
output modules is to be loaded. The 
addresses of the individual modules, in 
each of the loaded output modules, are then 
moved into a phase directory, and a request 
for the phases required is inserted in the 
status byte. 



Data Sets Used by the PL/I Compiler 

The source data set, which is input to the 
compiler, is given the name the user speci- 
fies, or SOURCE, XXX, The data sets that 
constitute possible output from the compi- 
ler are: a list data set, named 
LIST.XXX(O); a load data set, named LOAD. 
XXX(O); and a macro data set, named MAC. 
XXX (0). Table 1 contains the corresponding 
ddnames for each of the data sets used by 
the compiler. (Generally, ddnames will be 
used throughout this publication to refer 
to data sets used by the compiler) ♦ 



The source program that is to be com- 
piled appears as input to the compiler on 
the PLIINPUT data set. If one of the pre- 
processors is called prior to compilation, 
a macro data set is created with the ddname 
of PLIMAC. When preprocessing is com- 
pleted, PLIMAC replaces PLIINPUT as input 
to the compiler. The PLILIST data set is 
opened by PLC unless the user specifies 
that a separate listing is unnecessary, in 
which case the listing is placed on SYSOUT 
and no record of it is retained in the sys- 
tem after printout. The PLIIOAD data set, 
containing compiler output, and the PLIMAC 
data set, containing intermediate text, are 
optional and are opened by ccntrol routines 
in the compiler. The PLIINPUT data set is 
always used by the compiler, and is opened 
by PLC. 

The data sets used in the compilation, 
and the overall data flow associated with a 
compilation, are illustrated in Figures 2 
and 3. 



Overview of Logical Phases 

Control is passed between the* phases of the 
compiler via the control routines. After 
each phase has been executed, a branch is 
executed to the control module, which 
selects (from its phase directory) the next 
phase to be executed. The compiler phases 
and their corresponding functions are shown 
in Figure 4 . 



Communication between the phases is 
implemented by the following: 

1 . The text string . At the start of the 
compilation, the text string is input 
text that is converted by the compile- 
time processor, if necessary, into a 
string that is PL/I source text. The 
characters in this string are trans- 
lated into a code that is internal to 
the compiler. The phases of the com- 
piler gradually process the text until 
it is in the final form of the object 
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data set, which consist of machine 
instructions. The text-code bytes 
used for the compiler and the formats 
of statements at different stages of 
the compilation are in Section 4, 
under "Internal Formats of Text." 

The text is broken down into 
blocks; each block has a symbolic name 
that is independent of the physical 
location of the block in storage. 
Thus, the text blocks may be moved 
around in virtual storage under the 
supervision of the compiler control 
routines. 



Section 1 



Introduction 



SOURCE 
option 




PULISTor 
SYSOUT 



Source 

Program 

(PLIINPUT) 



XREF 
option 



List of 

identifiers 

and statement 
numbers 



PLILIST or 
SYSOUT 



MACRO/CHAR48 

option 



LIST 

option 



List of 
object code 



PLILIST or 
SYSOUT 



Compife-Time Processor 
or 48-Character Set 
Preprocessor (PLIMAC) 



LOAD/DECK 

options 



ESD,TXT,RLD, 
END and NAME 
(if OBJNM 
specified) 



PLILOAD 



MAC DC K 
option 



PL/I 
source 

text 



PLIMAC 



EXTREF 

option 



ATR 
option 



for all 

compilations 



SOURCE 2 
option 



External 

symbol 

dictionary 



List of 
identifiers 
and their 
attributes 



List of compiler 
options and 
diagnostic 
messages 



Listing of 
input to 
compile-time 
processor 



PLILIST 



PLILIST 



PLILIST 



PLILIST 



Figure 3. Compiler Data Flow and Data Sets Used 



2. The dictionary . The dictionary con- 
sists of blocks, each of which has a 
symbolic name. Part of the first dic- 
tionary block is used as a communica- 
tions region between phases (see 
Appendix B) . The communications 
region contains such information as 
the addresses of the heads of chains 



and the symbolic start of text. The 
remainder of the dictionary contains 
all information relating to identi- 
fiers appearing in the program, such 
as temporary storage areas required. 
The format of all dictionary entries 
for the compiler are in Section 4, 
under "Internal Formats of Dictionary 
Entries. " 
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Table 1. Data Sets Used by PL/I Compiler 



T *' T 

Access 
Method 



DDNAME 






PLI INPUT or 
user- supplied 
$$$nnnn* 



DSNAME 



SOURCE. XXX 

or 
user-supplied 



VI SAM 



Comment 



Source input to compiler — user-supplied or 
created by text editor before compilation is 
initiated 



-H 



PLI LI ST 



LIST. XXX CO) 



VSAM 






List data set — built unless user options 
indicate none is necessary 



PLI LOAD 



LOAD. XXX (0) 



VSAM 



Load data set — output from compiler and 
input to ODC 






PLI MAC 



MAC. XXX (0) 

or 
user -supplied 



VISAM 



Intermediate source text — created whenever 
preprocessing is specified 






SYSULIB 

or 
user-supplied 



USERLIB 

or 
user-supplied 



VPAM/ 
VISAM 



Member of library used by macro-phase 
%INCLUDE verb 



♦Name is generated by the system to be unique. The first three characters are "$$$' 
followed by a unique five- digit number. 



Logical Phase 
Compile-time Processor 



Function 






I— 



Reads input text # executes any compile-time statements in 
it, modifies text as directed, and produces modified text 
for further processing. 



Read- In 



Dictionary 



Checks source- prog ram syntax and removes from the test 
string all superfluous characters, such as comments and non- 
significant blanks 

Removes all BCD identifiers and attribute declarations from 
the source string and replaces them with symbolic references 
to dictionary entries; entries contain all consistent 
declared attributes and all the attributes specified in lan- 
guage in default of source-program specifications; error 
m€issages are generated for all inconsistent attributes 



Pret rans lat or 



Processes features of language that are more easily pro- 
cessed in original PL/ I form than when original syntactic 
form has been lost in later phases; carries out modifica- 
tions that include rearranging of order of certain I/O 
statements, creation of temporary variables for procedure 
arguments that are expressions, conversion of array and 
structure assignments to a series of DO-loops surrounding 
scalar assignments, and removal of iSUB expressions 



Translator 



Converts original PL/I syntactic form to internal syntactic 
form ("triples") ; triples consist of original source-program 

operators and operands, rearranged so that operations speci- 
fied in source string may be carried out in proper order 



Aggregates 



Carries out all structure and array mapping, so that ele- 
ments are aligned on correct virtual storage boundaries; 
when it is not possible to map at compilation time (such as 
when aggregates contain string lengths or array bounds that 
are specified by expressions) object code is produced to map 
at object time; also checks that items defined on arrays and 
structures can be mapped consistently 



Figure 4. Compiler Logical Phases (Part 1 of 2) 
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j Logical Phase 
Optimization 



Function 






Pseudo-Code 



Storage Allocation 



f 



Register Allocation 



If requested, these phases attempt to reorder triples for 
subscript address calculations and generate efficient 
pseudo-code for DO- loop control; this enables some PL/I pro- 
grams to compile into faster object code at cost of extra 
compile time 



Converts triples to form closely resembling machine instruc- 
tions, in which registers are represented symbolically, and 
storage locations are represented by dictionary references 
with offsets; final version of text also contains special 
pseudo-code items for guidance of later phases 



Searches dictionary for entries requiring storage, and allo- 
cates offsets to each, within its AUTOMATIC block or within 
STATIC storage area; code is compiled to set up dope vectors 
and pointers at object time for allocations of controlled 
variables and temporaries, storage for which must be 
obtained during execution of object program; prologue code 
is generated for each block of object program 



-H 



Allocates physical registers to symbolic registers that have 
been requested by earlier phases and ensures that all 
storage-location offsets allocated in previous phases can be 
addressed by insertion of necessary additional instructions 



Final Assembly 



Error Editor 



Completes translation to machine-code instructions, by cal- 
culating branch-destination addresses inserted symbolically 
by earlier phases; loader text is produced for machine 
instructions, constants, INITIAL values in STATIC storage, 
and all constant data required for block initialization; 
external symbol dictionary (ESD) and relocation dictionary 
(RLD) are produced to enable object program to be converted 
by object data set converter (ODC); also produces listing of 
object code 



Entered at end of every compilation; dictionary is examined 
to determine if diagnostic messages are to be printed out; 
if no, compilation is terminated by compiler control; if 
yes, error dictionary entries are processed and messages are 
printed; texts of all diagnostic messages are held in 
modules XG-YY. 



Figure 4. Compiler Logical Phases (Part 2 of 2) 



SECTION 2: 



METHOD OF OPERATION 



LOGIC OF THE COMPILER 



The compiler modules are link edited into 
six output modules , which are broken down 
by function: 

Control Output Module (CFBAC) - contains 
all the control modules, except those 
responsible for initialization. The 
code in this output module is reusable; 
it remains resident during multiple 
compilations . 

Main Output Module (CFBAD) - contains the 
modules responsible for initialization, 
together with all the logical phases, 
except those responsible for preproces- 
sing, optimization (option 0PT=2) , and 
interphase dumping and tracing. 

First Preprocessing Output Module (CFBAE) - 
contains the modules required for macro 
and/or 48-character set preprocessing, 
with the exclusion of modules that are 
reused in the processing cf the macro 
option. 

Second Preprocessing Output Module CCFBAF) 
- contains those modules of the macro 
preprocessor that may be reused in the 
processing of the macro option. 

Optimization Output Module (CFBAG) - con- 
tains those modules which are required 
when 0PT=2 is specified by the user. 

Interphase Dumping and Tracing Output 
Module (CFBAH) - contains all the 
modules required for interphase dumping 
and tracing. 

Each of these output modules, with the 
exception of the control output module, 
contains a control CSECT made up of VCONs 
for each of the link- edited modules within 
it. The initialization and loading of the 
output modules is explained below. (For a 
list of the modules contained within each 
output module, see Appendix K.) 



Compiler Control 

The control- phase modules, waich are resi- 
dent in virtual memory throughout compila- 
tion, control these functions: 

• Initialization and loading 

• Character translation 



• Communication between phases 

• Scratch-storage control 

• Text and dictionary block control 

• Phase linkage 

• Diagnostic-message control 

• Input/output control 

• Program-check handling 

• Job termination 



Initialization and Loading : The PL/I com- 
piler is invoked by PLC via a CALL macro 
instruction issued to control module AA. 
This has the effect of loading the control 
output module (CFBAC). At the top of AA, a 
test is made to determine if this is a 
clean entry. If it is not, but is a rein- 
vocation of the compiler, a cleanup routine 
is entered to ensure that all other output 
modules are deleted, that all open data 
sets are closed, and that any modified code 
in the control output module is 
initialized. 



The main output module (CFBAD) is then 
loaded via the issuance of a LOAD macro 
instruction. Module AB of CFBAD is 
responsible for the detailed initialization 
of the compiler. A CSECT, AU, within 
module CFBAD contains a VCON for each of 
the modules within the main output module. 
AB is responsible for transferring these 
VCONS from AU to a list, called the phase 
directory, in module AA of the control out- 
put module (CFBAC) . This list consists of 
8-byte entries containing the addresses of 
modules in the compiler. Thus the phase 
directory, after initialization, will ind- 
icate the location in virtual memory of the 
individual compiler modules. If the user 
requires the interphase dumping and/or 
tracing routines, AB will load the output 
module containing these routines as part of 
its initialization responsibility. 



When the detailed initialization of the 
compiler is complete, AB returns control to 
AA, where the linkage routines, using the 
phase directory, initiate execution of AM, 
the marking phase. Before marking the 
modules in the phase directory as wanted or 
not wanted, AM examines user-specified 
options and: 
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If MACRO and/or CHAR48 is specified, 
it loads the first preprocessor output 
module CCFBAE) . Located in this out- 
put module is a CSECT r AW, which con- 
tains a VCON for each of the modules 
in that output module. These VCONS 
are then transferred to the relevant 
slot in the phase directory. 

If MACRO has been specified, the 
second preprocessor output module 
(CFBAF) is loaded, whose VCON CSECT, 
AX, is used to fill the relevant slots 
in the phase directory. 

If the user has specified OPT=2 as the 
level of optimization, then the opti- 
mization output module (CFBAG) is 
brought in and the phase directory 
filled from its VCON CSECT, AY. 



Having completed initialization, AM 
passes control to the first logical phase. 
During compilation, additional modules may 
be marked as wanted or not wanted depending 
upon the nature of the source statements. 

Character Translation Tables ; The charac- 
ter translation tables (see "Internal For- 
mats of Text" in Section 4) provide the 
facility for converting external code to 
compiler internal code and for converting 
the internal code back to the external 
form. These tables prevent the compiler 
from becoming character code dependent and 
enable the scanning routines to process the 
input source statements more efficiently. 
Note that the contents of these tables are 
different during compile -time processing 
from the contents during compilation. 



Communication Between Phases : The communi- 
cations region is an area, specified by the 
control routines, and used to communicate 
necessary information between two phases of 
the compiler. The communications region is 
resident in the first dictionary block 
throughout the compilation. 

Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region are in Appen- 
dix B. (Note: The use of the communica- 
tions region during compile- time processing 
is described in Appendix F.) 



Scratch-Storage Control : Scratch storage 
of 4096 bytes is guaranteed to all phases. 
The control routines split the 4 096- byte 
block into discrete sections, and allocate 
them as required. The sections are in mul- 



tiples of 512 bytes. Additional scratch 
storage is obtained as required. 



Text and Dictionary Block Control : During 
compilation, at least four text blocks and 
four dictionary blocks are available. The 
dictionary- and text-block size is four 
pages. Block control is achieved by a sys- 
tem of text and dictionary references. 



Phase Linkage : The phase directory, in 
module AA, is constructed so that it may 
contain the location in virtual memory of 
each module required for compilation. 
These modules are then marked during 
initialization, by AM, or during compila- 
tion, as "wanted" or "not wanted" for that 
compilation. The phase-linkage routines, 
also in AA, are then used to access the 
phase directory, where they pick up the 
address of the next required module. This 
may be specified explicitly, or it may be 
the next phase after the current one that 
is marked "wanted". Having picked up the 
address from the directory, the linkage 
routines may either return the address to 
the caller in a communications area or they 
may branch directly to the address, to com- 
mence execution of a new module. Which of 
the above operations takes place is depen- 
dent upon the entry point used to enter the 
linkage routine. 

Where preprocessing is requested, the 
modules in the second preprocessor output 
module C CFBAF) may be required for reuse. 
Since these modules are not serially reus- 
able, the output module must be deleted and 
reloaded each time it is required. This 
service is performed by the linkage 
routines. 

Diagnostic-Message Control : Diagnostic 
message-control routines cause diagnostic 
messages to be placed in a chain in the 
dictionary. When conversational diagnos- 
tics are specified, these will also be pro- 
duced by these routines. 

Input/Output Control : The I/O control rou- 
tines involved act as interfaces between 
the compiler phases and the PLIINPUT, PLI- 
MAC, PLILIST, and PLILOAD data sets (see 
Figure 5 > . 

Program-Check Handling : The compiler 
handles all program checks; control can be 
passed to a phase to enable it to deal with 
the check. 

Job Termination : The compiler completion 
code is picked up and control is returned 
to PLC. 
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Figure 5 . Input and Output Data Sets 



The compiler completion codes are: 

Code Meaning 
No diagnostic messages issued; com- 
pilation completed with no errors; 
successful execution expected. 

4 Warning messages only issued; pro- 
gram compiled, successful execution 
is probable. 

8 Error messages issued; compilation 
completed, but with errors; execu- 
tion may fail. 

12 Severe error messages issued; compi- 
lation may be completed but with 
errors; successful execution improb- 
able. If a severe error occurs dur- 
ing compile-time processing, the 
compilation will be terminated and, 
if the SOURCE option has been speci- 
fied, a listing of tie PL/I program 
text produced by the compile-time 
processor will be printed. 



16 Terminal error messages issued; com- 
pilation terminated abnormally; suc- 
cessful execution impossible. 

Pr eprocessi ng 

The PL/ I compiler has two preprocessors, 
the 48-character set preprocessor and the 
compile-time processor. One of these pre- 
processors may be used prior to compila- 
tion, depending upon user- specif ied 
options. However, both of them would never 
be used for a single compilation. 

1. The 4 8-character set preprocessor is 
called when input to the compiler is 
in the 4 8 -character set, requiring 
translation to 60- character symbols 
before compilation. The user indi- 
cates this by specifying the CHAR48 
option. 

2. The compile-time processor is called 
when the source text contains prepro- 
cessor statements; this is indicated 
by specifying the MACRO option. The 
compile-time processor includes a 
facility for translating statements 
written in the 48- character set into 
the 60-character set. Thus, if both 
MACRO and CHAR48 are specified, only 
the compile-time processor will be 
called. 

If neither of these options is speci- 
fied, both preprocessors are bypassed and 
compilation is begun, using the PLI INPUT 
data set as input to the compiler. When 
either preprocessor is executed, it places 
the translated source text into the PLIMAC 
data set, which then serves as source input 
to the read- in phase. Figure 5 illustrates 
interaction between the compiler and input/ 
output data sets. 

Compilation 



The compiler comprises a series of phases 
that are called and executed in turn under 
the supervision of the control modules. 
Each phase performs a single function or 
set of functions, and is entered only if 
the services it provides are required for a 
particular compilation. Control module AM 
marks the appropriate phases, placing the 
names in a phase directory in accordance 
with the content of the source program and 
the optional compiler facilities selected. 
Figure 6 illustrates the overall flow of 
the compiler. 

The data that is processed by the compi- 
ler is known as text throughout all stages 
of the translation process. Initially, the 
text comprises the PL/ I source statements 
submitted by the programmer; at the end of 
compilation, it comprises the machine 
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instructions that the compiler has substi- 
tuted for the source statements, to which 
is added some reference information for use 
by ODC. 

The read- in phase takes ics input either 
from the PLIINPUT data set or, if prepro- 
cessing has preceded it, from the PLIMAC 
data set. This phase checks the syntax of 
the source statements and removes any com- 
ments and nonsignificant blank characters. 

After read-in, the dictionary phase of 
the compiler creates a dictionary that con- 
tains entries for all the identifiers in 
the source text. The compiler uses the 
dictionary to communicate descriptions of 
the elements of the source program from one 
phase to another. The dictionary phase of 
the compiler replaces all identifiers and 
attribute declarations in the source text 
with references to dictionary entries. 

Translation of the source text into 
machine instructions involves several com- 
piler phases with this sequence of events: 

1. Rearrangement of the source text to 
facilitate translation (for example, 
by replacing array of structure 
assignments with DO loops that contain 
element assignments) . 

2. Conversion of the text from the PL/I 
syntactic form to an internal syntac- 
tic form. 

3. Mapping of arrays and structures to 
ensure correct boundary alignment. 

4. Translation of text into a form simi- 
lar to machine instructions; this text 
form is termed pseudo-code . 

5. The compiler makes provision for 
storage allocation for STATIC 
variables and generates code to allow 
AUTOMATIC storage to be allocated dur- 
ing execution of the object program. 
(The PL/ I library subroutines handle 
the allocation of storage during 
execution of the object program.) 

The final- assembly phase translates the 
pseudo-code into machine instructions, and 
then creates the external symbol dictionary 
(ESD) and relocation dictionary (RLD) 
required by the conversion program • The 
external symbol dictionary is a list that 
includes the names of all subroutines that 
are referred to in the object module but 
are not part of the module; these names, 
which are external references, include the 
names of all the PL/I library subroutines 
that will be required when the object pro- 
gram is executed. The relocation dic- 
tionary contains information that enables 
virtual storage addresses to be assigned to 



locations within the object module when it 
is loaded for execution. 

Throughout compilation, subroutines in 
control modules are referenced to provide 
whatever services are required by the com- 
piler phases. When compilation is com- 
pleted, control passes back to PLC, which 
determines, on the basis of user options, 
| whether ODC or the name processor must be 
called. 



COMPILER INTERFACES WITH THE SYSTEM 
PROGRAM LANGUAGE CONTROLLER (PLC) - CFBAA 



This routine is the interface for accom- 
plishing any or all of these functions: 

1. Compile a prestored data set 

2. Create a line data set and compile it 

3. Process the compiled data set to make 
it executable in TSS/360 

1. Process references to external subrou- 
tines so that the subroutines can be 
called explicitly rather than 

duplicitly. 

5. Print the compiler- created listing 

data set. 

Entry Points : 

CFBAA contains five entry points - 

CFBAA1 - Entry from Command System 
Analyzer 
GRI points to first word in BPKD list 
PARAM dsect 
CFBAA2 - End entry point from text 
editor 
No parameter 
. CFBAA3 - Entry to MERGELST block build 
routine 
GRI points to module name padded to 
right with blanks 
CFBAA 4 - Entry to compiler data manage- 
ment routine 
GRI contains pointer to request code 
byte 

PARAM dsect 
CFBAA5 - Entry to language processor 
early end routine 
No parameters 

Input : PL/I command parameters pointed to 
by CFBAA8 BPKD 

CHBTDT - Task data definition table 

CHBTCM - Task common 

Output : CHBPLI - PL/I communication area 
CHBMGL - merge list of module names 
Messages: All CFBAA messages listed in 
System Messages . 
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Routines Called : Ext e rna 1 

CZABD (PRINT) CZASW4 (LPCEDIT) 

CZAEA3 (DDEF) CZATJ1 (PRMPT) 

CZAEC1 (FINDDS) CFBAB1 (ODC> 

CZAE12 (CATALOG) CFBAK (NAME PROCESSOR) 

CZAEJ7 (ERASE) CZCLA (COMMON OPEN) 

CZAFJ2 (RELEASE) CZCLB (COMMON CLOSE) 

CZASC7 (SYSIN) CZCOJ (FIND) 

CZASDX (GDV) CZCOK (STOW) 

CZASW1 (LPCINIT) IEMTAA (PL/I COMPILER) 

Exits : All exits are made by means of the 
RETURN macro. There are no SYSERR or ABEND 
exits. 

OPERATION : CFBAA is divided into four 
sub- modules: 

1. Mainline processing (CFBAA1) 

2. MERGELST block build routine (CFBAA3) 

3. Compiler data management routine 
(CFBAA4) 

4. Language processor early end routine 
(CFBAA5) 

Mainline Processing : In order to be re- 
entrant if interrupted during a previous 
compilation, PLC checks its footprint flag 
found in the communication bucket (CHAP LI) 
for the last operation completed before the 
interruption took place. From the value, 
it determines what end processing must take 
place before a new compilation may be 
begun. 

After cleanup, the communication area is 
initialized to zeros and default values. 
BPKD pointers are then inserted in their 
designated slots in the communication area. 
The merge list is built, including each 
name specified in the MERGELST parameter, 
using the subroutine CFBAA3. PLC options 
are scanned and appropriate values are 
filled into the bucket. 

If the user request explicit- call pro- 
cessing only (PLCOPT=NOCONV) and gave valid 
EXPLICIT and XFERDS operands, PLC skips 
compilation and conversion and calls the 
name processor (CFBAK) to change implicit 
calls to explicit calls. 

If NONCONV was specified, and if a 
module name was given as input, the module 
name is validated, with prompting for a new 
name if it is invalid. In a non- 
conversational task the compilation is 
bypassed if the module name is invalid. If 
a module name was not input, SOURCEDS (if 
valid) may be used for the name. If neith- 
er NAME nor SOURCEDS were input, PLC will 
skip compilation and call ODC (CFBAB) to 
convert input from MERGELST or MERGEDS 
parameters. 



When a source data set name was given as 
input, FINDDS is called to validate the 
name and locate a JFCB for it. If there is 
no JFCB, FINDDS is called again to create 
one. If it is unable to DDEF the data set, 
the CKNAM subroutine is used to determine 
data set attributes from the name. DDEF is 
called with the appropriate DSORG; then the 
data set is opened for the update option. 
The text editor is then invoked to create 
the data set. 

If the data set exists, a check is made 
to see if it is shared with read-only 
access. For that case the data set is 
opened for input; all other data sets are 
opened for update. After the SOURCEDS is 
fully open, the data set is checked in the 
DCB to ensure that it is a VI SAM line data 
set (or member). If it is not, compilation 
is bypassed. 

When the source data set has been vali- 
dated or created, the compiler is called 
with the address of a two- word parameter 
list in register 1. The first word con- 
tains the address of the PLIOPT string, 
whose length is in the byte preceding the 
string, and the second word contains the 
address of the communication bucket 
(CHAPLI) . 

When the count of modules in the 
MERGELST is greater than one, or a single 
module was compiled without terminal 
errors, or there is a pointer to a MERGEDS 
parameter, ODC is called with no parameters 
needed. Following conversion, if there has 
been a compilation with a separate listing 
data set, and a print request was an input 
parameter, the PRINT macro is issued with 
appropriate parameters. 

The source data set is closed (stowed if 
necessary) and the JFCB released if PLC 
defined the data set. The continuation bit 
is checked for further compilation and, if 
off, a normal return is made to the user. 

When the continuation bit is on, a SYSIN 
macro is issued to obtain the next input, 
with prompting "PLI:". The parameter is 
moved to PLI BPKD, all unwanted BPKD param- 
eters from the previous compilation are 
zeroed out, and processing continues at 
initialization. 

MERGELST Block Build Routine : The address 
of the name to be added to MERGELST is con- 
tained in register 1 on entry. The routine 
checks for the last block available by fol- 
lowing forward chain pointers, then checks 
to see if this block is full (MGLCNT=15) . 
If it is full, a GETMAIN is issued for 
another block of 128 bytes, and a pointer 
to this block is inserted in MGLPTR in the 
last block obtained. The name pointed at 
by register 1 is inserted in the first 
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available slot and the MGLCNT is updated by 
a count of 1. A normal return is made to 
the calling routine with no return codes. 

Compiler Data Management Routine ; Register 
1 contains a pointer to a code specifying 
what type of data set and what data manage- 
ment function are reguired. 

Code values for functions are: 





DDEF 


ERASE 


RELEASE 


LIST DS 


14 


18 


1C 


LOAD DS 


24 


28 


2C 


MACRO DS 


44 


48 


4C 



For a DDEF reguest, a CATALOG macro 
establishing a GDG index is issued for all 
cases except that where the user has speci- 
fied his own macro data set name. Then the 
appropriate DDEF is issued fcr the 
reguested data set. An immediate return is 
made to the calling routine. 

For an ERASE reguest, either the system 
name or the user supplied macro data set 
name is used with the ERASE macro, followed 
by a return to the calling routine. 

A RELEASE reguest will use the system 
supplied ddname for the data set in gues- 
tion followed by a return to the calling 
routine. 

Language Processor Early End Routine : This 
is a stand-alone routine invoked only by 
the user control routine (LPCINIT) function 
under certain conditions: 

1. PLC has been interrupted while creat- 
ing a new source data set. 

2. A new language processing reguest has 
been made for text-editor services. 

The routine enables PLC to close out the 
data set being created, refresh the source 
DCB, and reset the footprint to zero. In 
order to prevent the routine from taking 
effect when PLC is the language processor, 
and thus reinvoking the text editor, PLC 
sets a switch so that all processing is 
bypassed. PLC does its cleanup at initial- 
ization time. 



OBJECT DATA SET CONVERTER (ODC) - CFBAB 

ODC converts compiler- formatted object 
modules into TSS-f ormatted object modules 
and resolves the library- known pseudo regi- 
sters (PRVs) , other pseudo registers are 
passed on to the dynamic loadcjr. 

Entry Points : 

CFBAB1 - Entry from PLC to mainline 

processing 
CFBAB2 - Entry from PLC to task cleanup 



Input : The ODC routine will be passed the 
following input data by PLC and the compi- 
ler modules: 

Via the communications bucket (CHBPLI) - 
Merge list pointer, if any. 
Pointer to the merge data set name, if 
any. 

Via the task library chain - 

The job library into which the output is 
to be stored and from which the data set 
names are determined, if the reprocess 
option is selected, as indicated by the 
fact that the merge data set name eguals 
the job library. 

Via the merge list CCHBMGL) - 

A list of modules to be converted. 

Via the merge data set - 

Additional names of data sets to be 

processed. 

This input can take three forms: 

* The name of the most recently defined 
job library - reprocessing indicated. 

* The name of a VPAM data set which is 
not the current job library. A copy of 
every member in this library is to be 
processed and placed in the current job 

library. 

* The name of an independent data set 
made up of records, each containing up 
to 15 names of modules to be processed 
and stored in the current job library. 



Output : This routine produces TSS/360- 
f ormatted object modules 9 which it stores 
in the appropriate job library. It option- 
ally produces a data set that contains the 
offsets into the PRV. 

Messages: All CFBAB messages are listed 

in System Messages . 



Routines Called: External 



CZCLA (COMMON OPEN) 
CZCGA2 (GETMAIN) 
CZAEC CFINDDS) 
CZATJ CPRMPT) 
CZCOK (STOW) 



CZAFJ (RELEASE) 
CZCOJ (FIND) 
CZCGA3 (FREEMAIN) 
CZCLB (COMMON CLOSE) 
CZAEA (DDEF) 



Exits : All exits are made by means of the 
RETURN macro. There are no SYSERR or ABEND 

exits. 



OPERATION : CFBAB is divided into two 
submodules: 

1. Mainline processing (CFBABl) 

2. Task cleanup CCFBAB2) 
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Mainline Processing : After standard 
initialization, ODC searches out the most 
recently defined job library and opens it 
for update. It then obtains virtual memory 
space in which to process changes for the 
pseudo register vector table. If the name 
of the merge data set and of the job 
library are the same, a merge list member 
is added for each member of the library. 

When the merge data set name is the name 
of a VPAM data set which is not the job 
library, an entry is added to the merge 
list for each member of that data set. 
Subsequent processing proceeds as for a 
stand-alone merge list. 

If the data set provided as the merge 
data set does not have VSAM, VISAM, or VPAM 
organization, a warning message is issued 
and the merge data set ignored. Processing 
otherwise proceeds as normal. 

Data set names are processed from the 
merge list in the following order: first, 
the name has appended the prefix 'LOAD', 
and an attempt is made to find the input 
data set. If not extant, a message is 
issued and the next module is processed. 
If extant, a JFCB is created, if not pre- 
viously defined. 

A DCB is built for the input data set 
and the data set is opened. Storage is 
obtained in which to build a PMD and the 
text for the TSS/ 3 60- formatted module. 

Records in card- image form from the 
input data set are processed according to 
type until either an END card or version ID 
card is encountered, or the data set is 
exhausted. If the version ID card shows 
that terminal errors were detected during 
compilation, conversion is terminated and 
the proper message is written. If no END 
card is found, a message is issued and con- 
version continues. 

A default value, PLIPACK, is checked to 
determine whether the user wants his CSECTs 
packed on external storage. If PLIPACK=Y, 
all CSECTs are packed. If PLIPACK=P, non- 
common static external CSECTs smaller than 
4096 bytes, text CSECTs, and static intern- 
al CSECTs are packed. If PLIPACK is any 
other value or no value, no CSECTs are 
packed. All packed CSECTs within a module 
are combined into a sing el CSECT. Packed 
CSECT names are transformed into entry 
point names. 

The compiler generates a single record 
following the end record. This record con- 
tains a time-date stamp for version ID and 
the maximum error level detected during 
compilation. These values are inserted in 
the PMD for use by the program control sys- 
tem and the dynamic loader. 



The PMD header is then created. If any 
ESDID numbers are missing, a warning mes- 
sage is issued and processing resumed. A 
blank CSECT name likewise produces an error 
message, and the CSECT will be skipped. 



A control section dictionary (CSD) is 
created for each valid CSECT. RLD entries 
are built for all external and internal 
references in the CSD. The CSD and PMD are 
then completed in preparation for stowing 
the module generated into the job library. 



ODC then determines whether this module 
replaces another with the same name. If it 
does, the old version is deleted from the 
job library. A DELETE macro is issued to 
unload any old copy in virtual memory. 



The new module is then stored in the job 
library. The working storage is released 
and the input data set closed. If the JFCB 
for the input data set was created by the 
processing of this routine, that JFCB is 
released. An appropriate message is issued 
to inform the user into which job library 
the module was placed, and whether it was a 
replacement. If the module is too large to 
convert within the virtual memory work 
space allocated for this purpose, an error 
message issued and the module is skipped. 



The remaining modules, if any, are pro- 
cessed until the merge list has been 
exhausted. The pseudo register vector data 
set (if specified) is written after all 
modules have been processed. 



Errors may be detected while storing 
away the newly processed module. They are 
handled as follows: 

• If an error is detected while trying to 
determine the existence of a prior 
alias version in the job library, an 
error message is issued and the module 
is skipped. 

• If an error is detected while trying to 
stow the new module, an appropriate 
error message is issued. 

• If the error detected was that of dup- 
licate entry point names, the user is 
offered the opportunity to have the 
duplicate names listed and to terminate 
or continue processing after skipping 
the present module. 



Task Cleanup : This submodule closes data 
sets that ODC has left open and frees all 
working storage that ODC aquired. 



14 



Page of GY28-2051-0, Issued September 30, 1971 by TNL GN28-3191 



NAME PROCESSOR - CFBAK 

The name processor helps the user transform 
implicit calls to explicit calls 



Entry Points : 

CFBAK1 - Entry from PLC to mainline 
processing 

CFBAK2 - Entry from PLC to task cleanup 



Input : The name processor receives the 
following input: 

Via the communications bucket CCHBPLI) - 
Pointer to merge list, if any . 
Pointer to EXPLICIT operand, if any. 
Pointer to XFERDS operand, if any. 

Via the task job library chain - 

The last job library in the chain, in 
which ODC stowed the object module that 
contains the names to be processed. 

Via the merge list (CHBMGL) - 

A list of converted modules to be 
checked for name transformation. 



Output ; If the EXPLICIT or XFERDS operand 
was used, the name processor adds pad 
characters to the beginnings of selected 
external references. In addition, this 
routine optionally adds lines of the form 



0-7 


line number 


8 


X'OO 1 


9-16 


new name 


17 


blank 


18-24 


PLICALL 


25-27 


blank 


28-35 


old name 



to a line data set named in the XFERDS 
operand; if the named data set does not 
exist, this routine creates it. 

Messages: All CFBAK messages are listed 
in System Messages , 

Routines Called : External 

CZAEA4 (DDEF) CZCLAO (COMMON OPEN) 

CZAEC1 CFINDDS) CZCLBC (COMMON CLOSE) 

CZAFJ3 (RELEASE) CZCOJ1 (FIND) 

CZASDX (GDV) CZCOK1 (STOW) 

CZATJ1 (PRMPT) CZCOR1 (VS GET) 

CZCGA2 (GETMAIN) CZCOU1 (VS PUTX) 

CZCGA3 (FREEMAIN) CZCPA1 (VI PUT) 

CZCPB1 (VI GET) 



Exits : All exits are made by a branch, on 
register 15, to PLC. There are no SYSERR 
or ABEND exits. 

OPERATION : CFBAK is divided into two 
submodules: 

1. Mainline processing (CFBAK1) 

2, Task cleanup (CFBAK2) 

Mainline Processing : After standard 
initialization, CFBAK obtains and validates 
default values for PADCHAR and UPDTXFER. 
If system default values are used, PADCHAR= 
a and UPDTXFER=N. 

CFBAK constructs three symbol tables to 
facilitate the search for symbols specified 
in the EXPLICIT and/or XFERDS operand. 
Each table entry contains sixteen bytes; 
the new name is in the first eight bytes, 
and the old name is in the second eight 
bytes. 

Symbol table 3 is constructed first, 
from entries in the EXPLICIT operand. If 
EXPLICIT=*ALL, no table is built; a switch 
is merely set. If EXPLICIT= (MODA,MODB) , 
MODA and MODB are entered. If EXPLICIT=* 
ALL (MODA, MODE) , MODA and MODB are entered 
but a flag is set to indicate omissions. 

Symbol table 1 is built next, from reco- 
rds in the transfer data set, if the 
transfer data set has been supplied. CFBAK 
dissects the records into label (new name) 
and operand (old name) , ignoring records if 
they do not fit into the standard pattern, 
and inserts the names into the table. 

The last job library is opened, and a 
FIND is issued for the first name in the 
merge list. If it is found, a GET is 
issued against the module to pick up the 
PMD. For each CSECT, the REF chain is 
checked REF by REF through tables 3 and 1 
for a match. A match in table 3 plus 
appropriate flags tell whether the REF is 
to be changed or ignored. If it is to be 
changed, a check is made in table 1 to see 
if the name was changed in the transfer 
data set, and if it was, the label in the 
transfer data set is substituted for the 
REF in the PMD. If it is not in table 1 
and is to be added to the transfer data 
set, the name is checked for valid charac- 
ters, prefixed by the pad character, 
checked against both tables for possible 
conflict, and added to symbol table 2. 

When all CSECTs and REFs have been 
checked, the contents of symbol table 2 are 
formed into PLICALL records for the transf- 
er data set. Then the processed PMD is 
placed in the module by means of a PUTX 
macro instruction; the module is stored 
into the job library. The next module in 
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the merge list is treated in the same way 
until no more remain. CFBAK then reports 
all names from the EXPLICIT operand that 
were not found. 

Task Cleanup ; This submodule frees working 
storage and closes data sets that were left 
open. 



COMPILER CONTROL 

The compiler control modules perform spe- 
cific functions for the compiler; these 
modules and the subroutines they contain 
are referenced constantly throughout compi- 
lation. Two of the control modules, 
modules AA and AL, contain the service sub- 
routines, and are responsible for perform- 
ing most of the services required by the 
compiler. Tables of these subroutines and 
their functions are in Section 3. 

When compilation is called for, PLC 
calls module AA, AA links to AB, and AB 
performs the initialization of the compil- 
er. The addresses of the service routines 
contained in AL are placed by AB in a table 
in AA. From that point, modules AA and AL 
are referenced constantly throughout the 
compilation process. 

Module AA - First- Half Service Routines 

Module AA is the base module for the com- 
piler. The transfer-vector table, contain- 
ing the addresses of the entry points of 
service subroutines in both AA and AL, 
resides in AA. The transfer vector table 
consists of a series of ADCONS. The ADCONS 
for service routines in AA are resolved 
when AA is loaded. The addresses of ser- 
vice routines in AL are inserted into dummy 
ADCONS by AB. The offset of each ADCON in 
the table is fixed and is known by all com- 
piler phases. If a compiler phase wants to 
call a compiler service routine, its link 
register is loaded with the ADCON from this 
offset and the branch executed. A second 
table in AA points to frequently referenced 
information in storage. 



AA is responsible for phase linking. 
Facilities are provided for marking phases 
(as specified by the phase-marking module, 
AM), calling physical phases and then 
returning control to the caller, and pass- 
ing control to a new phase. 

Translate tables for converting external 
codes (EBCDIC, BCD) to internal code, and 
the reverse, are contained in AA. The spe- 
cific table supplied for an operation will 
depend upon the option specified by the 
user. AA also contains the DCB for the 
load file. 



Module AL - Second-Half Service Routines 

Module AL contains a series of ADCONS for 
the service subroutines located in it. 
These ADCONS are resolved at load time and, 
by means of the initialization process per- 
formed by AB, inserted in the transfer- 
vector table in AA. There are a few infre- 
quently used service routines in AL, whose 
addresses are maintained only in AL and are 
not transferred to AA. The remainder of 
module AL consists of service subroutines. 
These subroutines are described in Appendix 
H. 



Module AB - Initialization 

AB, the initialization routine of the com- 
piler control phase, performs these 
functions : 

• Opens the LOAD file (PLILOAD) if 
necessary, 

• Constructs the phase directory (for 
details see "Resident Tables" in Sec- 
tion 4) , 

• Obtains space for text blocks and dic- 
tionary blocks, 

• Sets up a communications region in the 
first dictionary block, 

• Scans the user-supplied options list 
and picks up default values from the 
options table in module AF when 
necessary, 

• Tests for CHAR48 and/or MACRO and then 
opens the macro data set (PLIMAC) and 
calls module AC, if necessary, 

• Prints a list of options used in the 
current compilation, 

• Tests for the BCD/EBCDIC option and 
moves the correct translate table from 
AA into the dictionary, 

• Inserts error messages, which may have 
been generated when the LOAD file was 
opened, into the dictionary, 

• Places the addresses of the compiler 
service routines in AL into the 
transfer- vector table in AA, 

• causes the first card to be read and 
stores it for use as a heading for the 
listing. 

On completion, AB returns to AA with a 
completion code. If this code is satisfac- 
tory, the first logical phase (read-in) is 
invoked. If the code is unsatisfactory, 
the compilation is terminated. 
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Module AC - Intermediate File Control 

This module controls writing operations of 
text, complete with VI SAM line numbers, on 
PLIMAC, the intermediate text file. It is 
entered only if the CHAR48 or MACRO option 
is specified. 

AC is also responsible for entering 
module AG at the end of the compile-time 
phase to close PLIMAC for output and open 
it for input. In other words , where MACRO 
and/ or CHAR48 are specified by the user, 
PLIMAC rather than PLIINPUT acts as source 
input to the compiler. 

Module AD - Interphase Dumping 

Module AD is responsible for performing 
interphase dumping. All specified active 
storage is dumped at the end of the phases 
stated or implied in the DUMP option. if 
the DUMP option includes either I, for the 
annotated dictionary dump, or E, for the 
annotated text dump, or both, then module 
AD will load either module AH or modules AI 
and AJ, or all three, to produce the 
required output. 

The DUMP option, which indicates where 
main storage is to be dumped, may be speci- 
fied in one of these ways: 

1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phas e > , 

2. DUMP= (area , x ± ,x 2 ,x 3 , . . . . x n ) means a 
dump of the storage after the named 
phase, where x is the naine of a phase. 

Area is any combination of TDSCIE: 

T text blocks 

D dictionary blocks 

S scratch storage 

C control phase 

I annotated dictionary blocks 

E annotated text blocks 



The general syntax is: 

DUMP£=(Earea] ,Cx[ (y,z)},« ., 
y, and z are phase numbers. 



>1 where x, 



A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases, after each of which dumping of 
storage is to occur. The dump will appear 
on PLILIST or SYSOUT, depending upon user 
option, inserted into the normal compiler 
output . 

If area is omitted, the default taken is 
DTS. If a program check occurs, and DUMP 
has been specified, then area will be given 
the default DTSC. 



Note : The operations of module AD are very 
closely linked to those of module AT (TRACE 
Option) in the performance of interphase 
dumping; module AT is, therefore, docu- 
mented immediately following. 



Module AT - TRACE Option 

Module AT provides the debugging facility 
known as TRACE, which makes it possible to 
obtain a printed list of all instructions 
executed (TRACE) or of all branches taken 
(FLOW) during execution of a specified seq- 
ment of a compilation. Use of the TRACE 
facility requires the inclusion of the fol- 
lowing input : 

• "DDEF TRACEOUT, VS, dsname", which 
defines the PRINT file that will carry 
the TRACE output. It should be printed 
after compilation with the EDIT option 

off. 

• The option "T" in the PLIOPT parameter 
of the PLI command. 

• *TRACE or *FLOW records immediately 
before the first PL/I source record. A 
maximum of 10 *TRACE and/or *FLOW rec- 
ords are permitted. 

The format for a +TRACE or *FLOW record is 
as follows: 

• * in column 1 

• The keyword TRACE or FLOW 

• The two-character name of the PL/I 
module in which the trace is to start 

• A four-digit offset (with leading 
zeros, if necessary) within the module 
in which the trace is to start 

• The two- character name of the PL/I 
module in which the trace is to end 

• A four-digit offset (with leading 
zeros, if necessary) within the module 
in which the trace is to end 

• A five-digit statement number (with 
leading zeros, if necessary) designat- 
ing the statement for which the option 
is to be applied. If no statement 
number is specified, the trace will 
occur for every executable statement in 
the program. 

Blanks between the * and the keyword are 
optional. One or more blanks are required 
between other fields. 

An example of a valid *TRACE record is: 

♦TRACE CI 002E CO 0f3c 00024 
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Modules AI and AJ - Text Dum p 



Modules AI and AJ are called, if E is spe- 
cified in the area field of the dump 
option, to provide an " easy- to-read 1 text 
printing, in which the triples and pseudo- 
code items are printed separately. This 
option is available between phases I A and 
OE inclusive. 

Module AK - Compiler Closing 

Module AK, the closing routine of the com- 
piler, releases main storage and scratch 
storage used for dictionary and text blocks 
and unloads all output modules except the 
control output module. 

The only data set AK is responsible for 
closing is PLILOAD CPLIMAC, if used, was 
closed by AE; PLI INPUT and P LI LI ST will be 
closed by PLC). AK closes PLILOAD after 
each compilation, whether or not batch com- 
pilation was specified. A new load data 
set is opened by AB for each compilation in 
a batch. Figure 7 shows what action is 
taken on each of the data sets by the 
various modules. 

For each load data set produced, the 
error level and date/time must be preserved 
together with the data set. This 



MODULES 


DATA SETS 


PLIINPUT 


PLILIST 


PLILOAD PLIMAC 


INCLUDE 
LIBRARY* 


PLC 


OPEN/ 
CLOSE 


OPEN/ 
CLOSE 






AA 






WRITE 




AB 
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OPEN OPEN 




AC 






WRITE 




AE 






CLOSE 




AG 






CLOSE/ 
OPEN 




AK 






CLOSE 


CLOSE 


AL 


READ 


WRITE 






AS 








READ 


BG 








OPEN 



* Either SYSULIB or user supplied name. 

NOTE: The module name refers to the module containing the I/O subroutine 
and does not indicate the module requesting the I/O operation. 



Figure 7 . Input/Output Usage Table 



information is obtained by AK from an 80- 
byte record added to the load data set file 
immediately prior to closing the file; then 
an entry is made to control subroutine 
ZULF. 

If a batch compilation is specified , a 
check is made to determine whether any 
source programs are still to be compiled. 
When one or more programs remain to be com- 
piled, the batch delimiter card is scanned 
for syntax errors, and control is returned 
to module AA. 

Module AM - Phase Marking 

Module AM marks phases as either wanted or 
not wanted, depending upon the compiler 
invocation options. Phases that are always 
called are marked wanted. AM is entered 
after completion of AB. It tests the rele- 
vant bits in the Control Code Word 
(CCCODE), loads the required output 
modules, and updates the phase directory. 
It then marks modules as wanted or not 
wanted in the phase directory. 

Module XZ - Conversational Diagnostic 
Messages 

This module is responsible for building 
conversational diagnostic messages. In 
addition to the conventional method of 
printing diagnostic messages with the list- 
ing, the user has the option of having them 
printed out at the terminal as errors are 
detected. XZ is called by the ZUERR sub- 
routine in module AL whenever this option 
is specified. 

On entry, XZ prepares a buffer area for 
constructing the message text. The severi- 
ty code is examined and inserted in the 
buffer area. The statement number is used 
to examine the statement-line table to 
obtain the corresponding line number. Both 
of these are then inserted in the buffer 
area. 

The BREVITY option is examined to deter- 
mine if the message text must be located 
and a full message constructed in the out- 
put buffer. The buffer is then directed to 
SYSOUT by GATWR macro and XZ returns con- 
trol to ZUERR. 



PREPROCESSING PHASE S 

48 -CHARACTER SET PREPROCESSOR 

Phase BX is the 48 -character set preproces- 
sor. It is called on programmer option and 
receives, as input, source text in the 48- 
character syntax. 

The preprocessor scans the input text 
for occurrences of characters peculiar to 
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the 48-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto auxi- 
liary storage ready for Phase CI, the first 
pass of the Read- In Phase. 

The text is read in record by record. 
It is then scanned for alphabetic charac- 
ters which may be the initial letters of 
operator keywords, for periods, and for 
commas. Items within comments or character 
strings are ignored. 

When a possible initial letter is dis- 
covered, tests are made to determine wheth- 
er or not one of the reserved operator key- 
words has been found. If one has been 
found, it is replaced by its 60-character 
set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and a 
comma-period pair is replaced by a semi- 
colon if the comma-period pair is not imme- 
diately followed by a numeric character. 

Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
split between two records. 

The output from the preprocessor is the 
transformed 60-character set text only; the 
4 8 -character set text is not preserved. 
The read- in phase processes the transformed 
text, and only the 60-character set text is 
printed. 

The 4 8- character set preprocessor uses 
Compiler Control routine ZURD to obtain 
input, and routine ZUBW to place its output 
onto auxiliary storage. 

Note : If the MACRO option is specified, 
all the processing described above is done 
by the compile-time processor, and phase BX 
is bypassed. 



COMPILE-TIME PROCESSOR LOGICAL PHASE 

The compile-time processor consists of six 
physical phases. Each of these phases is 
executed once, unless an INCLUDE data set 
is encountered. In this case certain 
phases will be re- executed. 

The compile-time processor moves source 
text that does not contain compile-time 
statements directly into text blocks. Dur- 
ing this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 



A second pass is then taken over these 
text blocks, during which compile-time 
statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
PL/I source program contained on PLIMAC. 

If during the second pass, an INCLUDE 
data set is processed, the entire procedure 
indicated above is executed recursively to 
process this text. 

Text and dictionary formats used by the 
compile-time processor are contained in 

Appendix F. 

Line Numbering 

As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 
input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 
inserted into the text so that diagnostics 
can be keyed to them. These line numbers 
are also output on PLIMAC, to aid the user 
in determining from which input line a par- 
ticular line of output came. 

Phase AS 

This phase, consisting of one physical 
module, is loaded if the MACRO option is 
specified. It is resident throughout 
compile-time processing until the cleanup 
phase (BW) is invoked. 

This phase controls the loading of the 
subsequent compile-time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (BC 
and BG> are loaded and executed once unless 
an INCLUDE data set is processed. In this 
case phase AS reloads the processing phases 
to process this data set. 

In addition, phase AS contains a set of 
service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 

Phase AV 

This phase consists of one physical module. 
Its purpose is to initialize certain cells 
in the communications region for the 
compile-time processor phases. 

Phase BC (BE, BF) 

Phase BC consists of three physical 
modules, BC, BE, and BF. Module BE con- 
tains the control routine. 

Phase BC accepts input text, moving it 
into text blocks until a compile-time 
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statement is found. (For a 
the use and layout of text a 
blocks, see Appendix F.) Wh 
time statement is encountere 
encoded into a set of interp 
tions and, except for compil 
dures, added to the current 
Compile-time procedures are ; 
encoded, but are placed in s 
blocks . 



description of 
id dictionary 
en a compile- 
d, it is 
retive instruc- 
e-time proce- 
text block, 
[similarly 
eparate text 



interpreter executes the statement — pos- 
sibly repositioning the scan cursor — and 
returns to the scan. 

The output of this phase is a PL/I 
source program contained on PLIMAC. 

Phase BM (BO) 



As compile- time statements are encoded, 
all non-keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DO- loops. 

During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 
converted to blanks. Invalid characters 
can thus be used for markers of various 
sorts in text blocks. Diagnostics are 
given for syntax errors in compile-time 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 

Phase BG (BI, BJ) 

Phase BG consists of three physical 
modules: BG, BI, and BJ, which contain the 
control routine, the macro-code interpret- 
er, and the built-in function handler, 
respectively. 

In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC. The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its basic 
action is to move through text blocks look- 
ing for instances of compile-time variables 
or compile-time statements, which it uses 
to produce the output text. As line num- 
bers are encountered in the text, they are 
placed into a location containing the cur- 
rent line number. This is used both for 
phase BG diagnostics and by the output 
editor. 

If a compile-time variable or procedure 
reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 
is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
occur to a depth of 100. 

If the scan encounters an encoded 
compile-time statement (built by phase BC) , 
control is passed to an interpreter. This 



Phase BM examines the heads of the error 
chains in the first dictionary block, and 
programmer options which specify the 
severity level of messages required. If 
there are no messages, it passes control to 
the clean-up phase (BW) . If diagnostic 
messages are required, the phase loads BN 
to process them after scanning the chains 
and indicating where the text is to be 
found, from the message directory block, 
module BO. 

Module BN (BP f BV) 

The text of all compile-time processor 
error messages is kept in modules BP 
through BV. The messages are ordered by 
severity, within these modules. BM will 
have listed those modules which contain 
messages required for a particular pass. 
Module BN loads and releases these modules, 
one at a time and extracts the required 
messages. When all compile-time error mes- 
sages have been processed, module BN 
returns control to BM. 

Phase BW 

The purpose of this phase to set all tables 
and communication region cells to the 
values required by the compiler proper. In 
addition it will release all text and dic- 
tionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 

If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of PLIMAC will be 
printed (provided that the SOURCE option 
applies), and compilation will be bypassed. 



COMPILER LOGICAL PHASES 

READ- IN LOGICAL PHASE 

The read-in logical phase consists of five 
discrete physical phases, each of which 
processes a particular group of statement 
types. The phase obtains the input text in 
the externally coded form by a call to the 
compiler read routine, and converts it to 
internal code by means of a translation 
table provided by compiler control. 

The source text is scanned for syntact- 
ical errors. During this time an output 
string is built up, which consists essen- 
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tially of the input text with comments and 
insignificant blanks removed. The source 
text is scanned and statements are num- 
bered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, PRO- 
CEDURE chains). If the SOURCE option app- 
lies, source statements, with their line 
number, and optionally, their block levels 
and DO-nest levels, are printed out immedi- 
ately after they have been read. 

When the input text provides an end-of- 
file indication, processing is terminated. 
In ERROR situations this may not occur when 
a valid external procedure has been com- 
pletely processed. By keeping a count of 
PROCEDURE, BEGIN, DO, END, ON, and IF 
statements, the phase can detect when the 
logical end- of- program indication is found. 
If there are more records after the end of 
the external procedure, they are ignored. 



statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 

Statements having multiple labels give 
rise to multiple label table entries - 
These entries are identical except for the 
BCD name. 

If the statement following a label is 
subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is re- 
accessed, and the entries associated with 
the statement are modified (see "Dictionary 
Entries for Entry Points 1 " in Section 4) . 

Chains Constructed by Read- In 

To provide rapid scanning in the dictionary 
phases, the following chains are con- 
structed by the Read-In Phase: 

The CALL chain 



If an end-of-file indication is encoun- 
tered before the logical end of the pro- 
gram, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 



The PROCEDURE- ENTRY-BEGIN chain 



The DECLARE chain 



The ALLOCATE chain 



The output of the Read- In Phase provides 
a syntactically correct output string? a 
table of entry and statement labels; chains 
of coded diagnostic messages; a set of 
switches specifying compilation content 
details; a set of chains linking statements 
of a particular type, to facilitate subse- 
quent scanning; and optionally, a listing 
of the source text. 



Errors and Diagnostic Messages 

As the source text is scanned it is syn- 
tactically analyzed. Keywords are identi- 
fied and passed as valid only if they may 
legally appear within the type of statement 
being diagnosed. However, consistency of 
attributes and options within a statement 
are not normally analyzed. This is left 
for Phase EK. 



Statement Numbering 

All statements are given a sequential num- 
ber. A table is then built that associates 
each statement number with the VISAM line 
number of the statement. This includes 
each compound statement, each statement 
contained in a compound statement, block 
and group delimiting statements, and null 
statements. The statement and line numbers 
are indicated on source listing and diag- 
nostic message printouts . 

Statement and Entry Labels 

Statement and entry labels appearing in the 
source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 
EG. 

When a label declaration is found, an 
entry is made in the label table with a 



When a syntactical error is detected, an 
attempt is made to correct it and an appro- 
priate diagnostic message is generated. 
The main aim of the Read-In Phase is to 
present syntactically correct text to sub- 
sequent compiler phases. Certain correc- 
tions are performed without prejudicing the 
complete compilation. 

Detected errors cause a diagnostic mes- 
sage to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
matter, statement and line numbers, and so 
on) . The message is decoded and printed 
out by the error editor. 

Where an error makes it impossible for 
the scan of a statement to continue, the 
statement is terminated correctly at such a 
point as to leave the statement syntactic- 
ally correct. The text between that point 
and the next semi-colon (not in a comment 
or character string) is skipped. The diag- 
nostic messages produced in these circums- 
tances will include at most the first ten 
characters of the text that is skipped. 
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The Output String 

The output string is so arranged that a 
complete statement never spans storage 
blocks . One of the conditions of a succes- 
sful compilation is that the output result- 
ing from any statement must not exceed the 
block. This restriction, however, does not 
apply to DECLARE statements. Formats of 
the statements appearing in the output 
string are given in Section 4 under "Text 
Formats After the Read-In Phase." 

All constants and operators, and all 
identifiers which are not recognized as 
keywords in the source text, appear in the 
output string. 

Initial Labels 

Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseudo- assignment statements in 
text, and then handled as if they were 
normal labels. 



STRUCTURE OF THE READ- IN LOGICAL PHASE 



read into storage, and character codes are 
converted to an internal form. Statement 
types are identified, labels are inserted 
into the dictionary, and statement identi- 
fiers are replaced by single-byte codes 
(see "Text Code Byte after Read-In Phase" 
in Section 4) . 

A record is kept of block nesting levels 
and counts to enable a check to be made for 
the logical end-of -program indication. In 
order to do this, certain statements have 
to be either partially or completely ana- 
lyzed in this pass. 

These statements are: 

PROCEDURE- END 
BEGIN- END 
DO-END 
IF-THEN- ELSE 

ON 

CI calls a subroutine in AL to issue a 
GETMAIN for 16K bytes of storage in which a 
statement- line number table is created. 
Each statement number is associated with 
its corresponding VISAM line number. 



The read- in phase can occupy 16K bytes of 
storage for any one pass. A storage map 
for this phase is shown in Figure 8. 



Bytes 


4K 

7K 

8K 
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CC 
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Figure 8. Storage Map for the Read-In 
Phase 



If the SOURCE option has been requested, 
a listing of the source program, with the 
statement and line numbers, is printed out 
onto the specified output medium. 



Phase CL 

The output from phase CI is processed and 
the statement types listed below are ana- 
lyzed in greater detail: 



ENTRY 


FREE 


PROCEDURE 


WAIT 


DO 


READ 


Iterative DO 


WRITE 


RETURN 


DELETE 


GO TO 


UNLOCK 


DELAY 


LOCATE 


DISPLAY 


REWRITE 



The read- in phase consists of five 
phases or passes, each containing at most 
five modules. Modules CA and CC consist of 
common routines which are invoked through- 
out the phase by each of the passes, in 
turn. Modules CE, CK, CN, and CR contain 
separate keyword tables. Details of the 
organization of these tables are given in 
Section 4 under "Resident Tables." Control 
for each pass resides in modules CI, CL, 
CO, CS, and CV respectively. The following 
description refers to the phases by these 
names. 

Phase CI 

During phase CI (the first physical phase 
of the Read-In Phase) the source text is 



If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary as required. 

Phase CO 

The output from phase CL is processed. In 
particular, the DECLARE, ALLOCATE, and CALL 
statements are analyzed in greater detail. 
The syntax of attributes is checked, but 
their consistency is analyzed during phase 
EK. If the source program does not contain 
any of these three statements, this pass is 
not invoked. 

If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 
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Phase CS 

The output from phase CL or CO is pro- 
cessed. In particular, the syntax of 
input/output statements is analyzed, 
together with the FORMAT statement. If the 
source program contains no input/output 
statements, this pass is not invoked. 

Phase CV 

This phase processes the output from earli- 
er phases. In order to assist subsequent 
processing, chains are constructed for PRO- 
CEDURE, ENTRY, BEGIN, CALL, ALLOCATE, and 
DECLARE statements. 



DICTIONARY LOGICAL PHASE 

The dictionary phase forms a dictionary of 
identifiers, by first analyzing PROCEDURE, 
BEGIN, DECLARE, and ENTRY statements. The 
text is then scanned for contextual use of 
identifiers, constants, and pictures. Pin- 
ally, every identifier and constant in the 
source text is replaced by a reference to 
its respective dictionary entry. Dic- 
tionary entries are made during this phase 
for all implicitly defined identifiers. 
The formats of dictionary entries appear in 
Section 4. 

Constructing and Accessing the Dictionary 

The dictionary, during the construction 
stage, comprises two parts, the hash table 
and the dictionary proper. 

To facilitate a search through the dic- 
tionary for an entry with a particular BCD, 
a method is used of dividing the dictionary 
into areas. Each area is characterized by 
a property of the BCD of each entry in it. 
In practice, these areas are not contiguous 
but are chained lists, each item in the 
list being one dictionary entry long. 

The start of each list is in a table, 
known as the hash table. The association 
of a particular identifier with a list, 
i.e., the characterization of an area, is 
achieved by deriving from a given BCD an 
address in the hash table. 

"Hashing" is a process of reducing the 
length of the internal representation of 
the BCD to one word. This is done by 
adding successive four-byte lengths of the 
BCD into one four- byte register. This is 
then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particular BCD. All 
identifiers which hash to the same address 
are placed in a chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 



If TOW, DICK, and HARRY occur in the 
same DECLARE statement in that order, and 
they all hash to the same address in the 
hash table, the address in the hash table 
will point to HARRY'S entry, which contains 
the address of DICK, which, in turn, con- 
tains the address of TOM. 

When no further BCD entries are to be 
made in the dictionary, and all BCD identi- 
fiers in the source text have been replaced 
by dictionary references, the hash table is 
deleted. 

Testing for Consistent Attributes 

A test is made at the start of each list of 
attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 

Compiler Pseudo-Variables and Functions 

Expressions specified for array bounds, 
string lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed immedi- 
ately following the BEGIN, PROCEDURE or 
ALLOCATE statement to which the declared 
variable belongs. The expression results 
are assigned to pseudo-variables generated 
by the compiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo- variable contains the dictionary 
reference of the variable and information 
concerning the destination of the expres- 
sion. Compiler functions with a format 
similar to the pseudo- variables are also 
created. The function result is the speci- 
fied array bound, or string length. Com- 
piler functions are created for two pur- 
poses: first, to set bounds for base ele- 
ments of structures when the structure 
bound is an expression, or to set the 
bounds of temporary arrays; and secondly, 
to set the storage address of a dynamically 
defined item immediately before its use. 
The formats of all the compiler pseudo- 
variables and functions appear in Section 4 
under "Second File Statements. " 

Dictionary Entries for Entry Points 

A PROCEDURE or ENTRY statement may have 
more than one label. Each label must have 
a data description to indicate the type of 
data returned when the label is invoked as 
a function, and also the type of data to 
which the expression in a RETURN C expres- 
sion) must be converted. These need not be 
the same: there must therefore be provi- 
sion for two data descriptions for each 
label. A PROCEDURE or ENTRY statement may 
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specify parameters. The descriptions of 
these identifiers, obtained from DECLARE 
statements or default rules, are used for 
prologue construction, but not for parame- 
ter matching- Any data description given 
on these statements is to be used for conv- 
ersion at a RETURN (expression), but not 
for determining the result returned by a 
function reference. 



Parameter descriptions for use in param- 
eter matching, and data descriptions used 
for determining the type of data returned 
by a function reference, may be specified 
by the source programmer in an ENTRY 
declaration. If these are not given, 
default and implicit rules must be used to 
build a data description, but no parameter 
description can be given. 

Given the foregoing requirements, the 
dictionary entries describing an internal 
entry point are as given in Figure 9. 



The set of dictionary entries A, B, C, 
D, E is repeated for each label associated 
with the PROCEDURE or ENTRY statement. The 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 

The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 

The entries type 1 of PROCEDURE and 
ENTRY statements belonging to a single pro- 
cedure are chained together in a circular 
manner. If there are no ENTRY statements 
the entry type 1 of the PROCEDURE statement 
points at itself. 
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Note: There is an entry E for each parameter described in D. 
Figure 9. Dictionary Entries for an Internal Entry Point 



Section 2: Method of Operation 23 



External entry points are described by 
dictionary entries termed entry type 4. 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 

Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6 - 

Phase ED 

Phase ED contains a set of subroutines, for 
processing certain of the tasking and list 
processing attributes, and tables of gener- 
ic and non-generic built-in functions. The 
phase obtains IK of scratch storage, into 
which it moves the routines and tables, 
setting a slot in the communications region 
to point at them. This address is later 
picked up and used by phase EL. 

Phase EG(EF) 

Phase EG has two main functions. The first 
is to set up a hash table, and to insert 
the label entries left in the dictionary by 
the Read-In Phase into hash chains. The 
second function of the phase is to create 
dictionary entries for PROCEDURE, BEGIN, 
and ENTRY statements, and to construct 
chains linking entries of particular types. 

For PROCEDURE- BEG IN statements, entry 
type 1 dictionary entries are created (see 
"Dictionary Entries for Entry Points" in 
Section 4), and block header chains are set 
up to link these entries sequentially. A 
containing block chain is also set up to 
link each entry with that of its containing 
block. 

BEGIN statements are scanned for the 
ORDER/REORDER option, and the optimization 
byte is created in the entry type 1 (see 
"Dictionary Entries for Entry Points" in 
Section 4) . 

On the appearance of PROCEDURE state- 
ments, circular PROCEDURE- ENTRY chains are 
initialized to link the entry type 1 dic- 
tionary entries of the PROCEDURE and ENTRY 
statements of the same block. The formal 
parameter list is scanned, and formal pa- 
rameter type 1 entries are created and 
inserted into the hash chain. Details of 
the PROCEDURE-ENTRY chains appear in Sec- 
tion 4. 



are created if necessary. Precision data 
are converted to binary, and dictionary 
entries are created for pictures (see Sec- 
tion 4) . 

Statement labels are scanned and their 
entry type 2 dictionary entries are 
created. The relevant data bytes in the 
dictionary are completed by default rules 
(see Section 4). 

For ENTRY statements, entry type 1 dic- 
tionary entries are created (see Section 
4), and the circular PROCEDURE- ENTRY chain 
is extended. Formal parameters, attri- 
butes, and labels are processed in a simi- 
lar manner to those for PROCEDURE state- 
ments, except that the options code byte is 
not created. 

Phase EI (EH, EJ> 

Phase EI scans the chain of DECLARE state- 
ments set up by the Read- In Phase, and 
modifies the statements to assist Phase EK 
as follows : 

Structure Level Numbers : these are con- 
verted to binary. 

Factored Attributes : parentheses enclosing 
factored attributes are replaced by special 
code bytes, so that Phase EK can distin- 
guish them easily. A factored attribute 
table is set up. It consists of slots 
corresponding to each factored level. Each 
slot contains the address of the attribute 
list associated with that level, and the 
address of the slot for the containing 
level. 

The following attributes are processed: 



DIMENSION: 



dimension table entries (see 



Section 4) are created in the dictionary 
and the source text is replaced by a point- 
er to the entry. Fixed bounds are con- 
verted to binary and inserted in the table. 
A second file statement (see Section 4) is 
created at the end of the text, for adjust- 
able bounds, and a pointer to the statement 
is inserted in the dimension table. Iden- 
tifiers with identical array bounds share 
the same dimension table. 

PRECISION : precision and scale constants 
are converted to binary. 

INITIAL : dictionary entries are created 
for INITIAL attributes. 



The attribute list and the options are 
scanned and an options code byte and opti- 
mization byte are created in the entry type 
1 (see Section 4). A check is then made 
for invalid and inconsistent attributes. 
CHARACTER and BIT attributes are processed, 
and second file statements (see Section 4) 



INITIAL CALL ; second file statements are 
created for INITIAL CALL attributes. 

CHARACTER and BIT : fixed length constants 
are converted to binary; a code byte marker 
is left for * lengths (see Section 4). 
Second file statements (see Section 4) are 
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created for adjustable length constants, 
and the source text is replaced by pointers 
to the statements . 

DEFINED : second file statements (see Sec- 
tion 4) are created and the source text is 
replaced by pointers to the statements. 



POSITION: 



the position constant is con- 



verted to binary. 

PICTURE : a picture table entry (see Sec- 
tion 4) is created and inserted into the 
picture chain; similar pictures share the 
same picture table. The source text is 
replaced by a pointer to each entry. 

USES and SETS : USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 

LIKE : BCD entries are created for identi- 
fiers with the LIKE attribute. 

LABEL : if the LABEL attribute has a list 
of statement label constants attached, a 
single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 

OFFSET and BASED : Second file statements 
are made and text references are inserted 
in the DECLARE statements for these 
attributes. 

AREA : Fixed-length specifications are con- 
verted to binary; second file statements 
are made for expressions; a code byte, fol- 
lowed by the length of text reference, is 
inserted in the DECLARE statement text. 

All other attributes, identifiers, or 
constants are skipped. 

Phase EL (EK, EM) 

Phase EL, consisting of modules EK, EL, and 
EM, scans the chain of DECLARE statements 
constructed by the Read-In Phase. 

An area of storage known as the attri- 
bute collection area is reserved. This is 
used to store information about the identi- 
fiers, and has entries of a similar format 
to that for dictionary entries. 

Complete dictionary entries are con- 
structed for every identifier found in a 
DECLARE statement. These identifiers can 
be one of the following types : 

1. Data Items (see Section 4) 

2. Structures (in this case, the 'true' 
level number is calculated) (see Sec- 
tion 4) 



3. Label Variables (see Section 4) 

4. Files (see Section 4) 

5. Entry Points (see Section 4) 

6. Parameters (see Section 4) 

7. Event Variables 

8. Task Variables. 

Identifiers appearing as multiple 
declarations are rejected and a diagnostic 
message is given. 

The attributes to be associated with 
each identifier are picked up in three 
ways. 

First, the attributes immediately fol- 
lowing the identifier are stored in the 
attribute collection area. 

Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch storage by 
Phase EI. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. , dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic mes- 
sages are given. 

Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. 

After the dictionary entry has been 
made, further processing (e.g., linking of 
chains, etc.) must be done in the follow- 
ing cases: 

1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 

5. Arrays having adjustable bounds 

6. GENERIC identifiers 

7 . Structure members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 

After the declaration list has been 
fully scanned and processed, it is erased. 
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Phase EP 

Phase EP first conditionally marks later 
phases as "wanted 1 or 'not wanted,' accord- 
ing to how certain flags in the dictionary 
are set on or off. This assists in the 
load-ahead technique. 

The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a function. If this has pre- 
viously been given in a DECLARE statement 
nothing further is done, otherwise entry 
type 2 and 3 dictionary entries are con- 
structed from default rules (see Section 
4) . If this default data description does 
not agree with the description derived from 
the PROCEDURE or ENTRY statement, a warning 
message is generated. 

At each PROCEDURE entry, the chain to 
the ENTRY statement entry type 1 is fol- 
lowed. Each statement is treated in a 
similar manner to that for a PROCEDURE 
entry type 1 . 

The CALL chain is tnen scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a dic- 
tionary entry for an EXTERNAL procedure is 
made (see Section 4), using default rules 
for data description. Before making the 
entry, the identifier is checked for agree- 
ment with any of the built-in function 
names. If there is agreement, a diagnostic 
message is generated, and a dummy dic- 
tionary reference is inserted. 

If an identifier is found, it is 
examined to see if it is an undefined form- 
al parameter. If it is, the formal parame- 
ter is made into an entry point, again 
using default rules for data description. 
If it is not, or if the declaration of the 
formal parameter is complete, the type of 
entry is checked for the legality of the 
call. A diagnostic message is generated if 
the item may not be called. In all cases, 
the item called is marked IRREDUCIBLE if it 
has not previously been declared REDUCIBLE. 

Phase EW (EV) 



Phase EW is an optional phase, loaded only 
if any LIKE attributes appear in the source 
program . 

This phase scans the LIKE chain which 
has been constructed by Phase EK, and com- 
pletes the dictionary entry for any struc- 
ture containing a LIKE reference. when a 
structure in the LIKE chain is found, its 
validity is checked, and dimension data and 
inherited information are saved. The dic- 



tionary is scanned for the reference of the 
"likened" structure and the entry is 
checked for validity. 



This dictionary entry (see Section 4) is 
copied into the dictionary, with altera- 
tions if there is a difference between the 
original structure and this structure with 
regard to dimensioned data. If both struc- 
tures have dimensions a straight copy is 
made; if the structure with the LIKE attri- 
bute has dimensions and the likened struc- 
ture has not, the dimension information is 
added to the copy; if the structure with 
the LIKE attribute is not dimensioned and 
the likened structure is, then the dimen- 
sion data is deleted from the copy. 
Inherited data is added to the copy. If an 
error is found, the structure with the LIKE 
attribute is deleted and a base element 
copy of the master structure is inserted 
instead. Where copies of entries occur 
which refer to dimension tables with vari- 
able dimensions, the dimension table entry 
is copied, and new second file dictionary 
entries and statements are created. Simi- 
lar entries must be made if the structure 
item has been declared to be an adjustable 
length string, or has been declared with 
the INITIAL attribute. 

Finally, the newly completed structure 
is scanned by the ALIGN routine in phase 
EV, to provide correct explicit/inherited/ 
default alignment attributes for its base 
elements. 



Phase EY 

Phase EY is an optional phase which pro- 
cesses all ALLOCATE statements. 

The second file is scanned first and all 
pointers to the dictionary are reversed. 
All ALLOCATE statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE state- 
ment for an item are collected together. 

A copy of the dictionary entry of the 
allocated item is then made (see Section 
4) , and the ALLOCATE statement is set to 
point to it. The dictionary entry is com- 
pleted by including any attributes given on 
the ALLOCATE statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the ALLOC- 
ATE s ta t emen t . 

In the case of an ALLOCATE statement in 
which a based variable is declared, no copy 
of the original dictionary entry is 
required. The BCD is replaced by the ori- 
ginal dictionary reference. 
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All pointer qualified references in the 
text are checked to determine that the qua- 
lified variable is based. For every occur- 
rence of a variable with a different point- 
er a new dictionary entry is made. If the 
variable is a structure the entire struc- 
ture is copied. A PEXP second file state- 
ment is made for the pointer and the 
•defined' slot in the new dictionary entry 
is set to point to it instead of to the 
declared pointer. 

The BCD of the pointer and the based 
variable in the text are replaced by the 
new dictionary reference followed by pad- 
ding of blanks which will be removed by 
phase FA. 



The based variabl 
name of a structure 
the name is checked 
first part or lowest 
name in the text is 
tionary reference of 
preceded by a specia 
FA that a partially 



Phase FA 



e can be the qualified 
member. If this is so, 
for validity. Only the 

level of the qualified 
replaced by the dic- 

the member. It is 
1 marker to tell phase 
replaced name follows. 



Phase FA scans the text sequentially. If , 
during the scan, qualified names are found 
with subscripts attached, they are reor- 
dered so that a single subscript list 
appears after the base element name. The 
dictionary is scanned and references 
obtained for any identifiers which are con- 
textually, file, event, pointer variables, 
or programmer-named ON conditions. If no 
reference is available, a new dictionary 
entry is made. The identifier is then 
replaced in the text by the dictionary 
reference. 

If a constant marker is found, the dic- 
tionary is scanned to check if the constant 
is present. If it is not, a new dictionary 
entry is made (see Section 4) and the 
resulting reference replaces the constant 
in the text. 

If a P FORMAT marker is found, the dic- 
tionary is scanned for a picture entry in 
agreement. If there is no agreeing entry, 
a new dictionary entry is made (see Section 
4) and the picture chain is updated. The 
dictionary reference replaces the format 
marker in the text. 

The CALL chain is removed from CALL 
statements. The appearance of PROCEDURE, 
BEGIN, END, and DO statements results in 
adjustments to the level and count stacks. 
If statement introduction code bytes appear 
(such as SN, SL, CL, and SN2) , the current 
statement number is updated. All data 
items associated with the PROCEDURE, BEGIN, 
ENTRY, and DECLARE statements are removed. 



leaving only the statement identification 
and the keyword. 



Phase FE 

When an identifier is found, the hash chain 
is used to scan the dictionary for a valid 
entry. If one is found, its dictionary 
reference replaces the identifier in the 
output text. If no valid entry is found, 
and the BCD does not agree with any entry 
in the tables of BCDs of PL/I built-in 
functions, then a dictionary entry is made 
as if the identifier was declared in the 
outermost procedure. However, if the BCD 
agrees with a function name, and it is not 
in a SETS position, a function entry is 
made in the dictionary, and its reference 
is used to replace the identifier. 

If a left parenthesis is found, the pre- 
vious dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Section 4). 

Checks are also made for the positions 
of function references in assignment state- 
ments. Any dictionary references encoun- 
tered in the input file are moved directly 
to the output file. 

PROCEDURE, BEGIN, DO, and END statements 
cause the current level count to be 
updated. 



Phase FI 

Phase FI scans the text and checks, where 
possible, the validity of dictionary 
references found. References in a GOTO 
statement are checked that they refer to 
labels or label variables and that the sub- 
sequent branch is valid. The code byte for 
GOTO is changed to GOOB (see Section 4 ) if 
the branch is to a label constant outside 
the current PROC or BEGIN block. If the 
branch is to a label variable, GOOB is set 
up unless a label value list was given at 
the declaration, and all members of the 
list lie within the current block. 

List processing based variables in 
ALLOCATE, FREE, READ, WRITE, and LOCATE 
statements are marked as requiring a Record 
Dope Vector (RDV) . Variables in TASK and 
EVENT options on CALL statements are 
checked for validity. 

References are checked if they appear 
where a file is expected. Items in data 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists. 
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Any errors which are found cause diag- 
nostic messages to be generated and dummy 
references to be placed in the text in 
place of erroneous references. 



Phase FK 



Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 
their dictionary references. Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 

Phase FQ 

Phase FO makes a dictionary entry for each 
ON condition mentioned inside a block. For 
ON CHECK conditions multiple dictionary 
entries are made (see Section 4) f one for 
each BCD. If a similar condition is men- 
tioned more than once in a block, only one 
dictionary entry is made for that condi- 
tion, except for file conditions, ON CONDI- 
TION, and ON CHECK, when separate dic- 
tionary entries are made for each different 
BCD name. 

SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 

The dictionary entries for each BCD name 
associated with file or CONDITION condi- 
tions are checked and, if in error, the ON, 
SIGNAL, or REVERT statement is replaced by 
an error statement. A diagnostic message 
is generated. 

The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 
examined. If the BCD is PLIINPUT or PLI- 
LOAD, the dictionary reference of the file 
entry is placed in a slot in the communica- 
tions region. 

A check is made to ensure that formal 
parameters do not appear in CHECK and 
NOCHECK lists. A single dictionary entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1. 

When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT, or a 
variable. 

List Processing POINTER and OFFSET 
variables in CHECK lists are treated as 
data variables. BASED variables may not 
appear in CHECK lists. 

A dictionary entry is made for the list 
processing AREA condition. This condition 



is always enabled and may not appear in a 
condition prefix. 

Dictionary entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block. Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 

All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 

A further, quite distinct, function of 
this phase is to substitute error state- 
ments for all statements containing dummy 
dictionary references (which have been 
inserted by previous phases on detecting a 
severe error) . If a dummy reference is 
found in the second file, the compilation 
is aborted. 

Wherever an element of a label array is 
initialized by appearing as a statement 
label, an assignment to a compiler label 
has been inserted by the Read- In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 



Phase FQ 

Phase FQ checks the validity of each item 
in the PICTURE chain in the dictionary (see 
Section 4) . 

The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 

Invalid pictures cause appropriate diag- 
nostic messages to be generated. 

Phase FT 

Phase FT performs certain housekeeping 
tasks. These are as follows: 

1. The second file entries are scanned 
and pointers to each entry are 
inserted in the associated dictionary 
entry (see Section 4). 

2. Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Section 4). 

3. Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 
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4. Dimension tables are separated for 
items which are not in structures, but 
which are arrays having similar 
bounds, but with different element 
lengths. 

5. Items which are members of structures 
and which have "inherited" dimensions, 
i.e. are contained in a structure 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are not constant, 
second file statements (see Section 4) 
are set up to initialize the bounds in 
the object time dope vector. 

6. Items which have expressions to be 
evaluated at prologue time, e.g., pa- 
rameter descriptions for entry points 
and defined items, are placed in the 
AUTOMATIC chain for the appropriate 
block. 

7. The dictionary entry for any item 
described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
modes sharing the same picture table 
are now placed in separate tables. 

8. The 'dope vector required" bit (see 
Section 4) is set on where necessary. 

9. when a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are moved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 

10. Dictionary entries similar to label 
BCD entries are made for all TASK 
variables. 

Phase FV 

Phase FV scans the second file and reverses 
the pointers to the dictionary. 

Dictionary entries for DEFINED data are 
completed (see Section 4) . Overlay and 
correspondence defining are differentiated 
between, as are static and dynamic defin- 
ing. A preliminary check of the validity 
of defining is also carried out. 

When PROCEDURE and BEGIN statements are 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 

When ALLOCATE statements are found, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 



When a reference to dynamically defined 
data is found, the base reference is 
inserted into the text following the 
defined reference. 

When an initial label statement is 
encountered in the main text, it is not 
copied into the output string. 

The dictionary reference of a POINTER in 
a PEXP (pointer expression) second file 
statement is inserted into the defined slot 
of the associated based variable. If the 
based variable is a structure this 
reference is propagated throughout the 
structure. The PEXP statement is then 
deleted. 

A similar procedure is performed for 
BVEXP (based variable expression) second 
file statements whereby the dictionary 
reference of the AREA is inserted into the 
dictionary entry of the associated OFFSET 
variable. 

ADV second file statements referring to 
a BASED variable are checked for compliance 
with the compiler implementation rules. If 
the rules are obeyed, the dictionary entry 
of the 'bound' variable is inserted in the 
appropriate slot in the multiple table 
entry. 

If an MTF statement refers to a based 
variable the appropriate bound slot is 
copied from one multiple table entry to the 

other. 



Phase FX 

Phase FX is an optional phase entered only 
if the ATR (attribute list) or XREF (cross- 
reference list) option is specified. It 
scans the STATIC, AUTOMATIC, and CONTROLLED 
chains, and the formal parameter lists. 

For each identifier it creates an entry 
in text scratch storage of the form: 



2 bytes 



3 bytes 



3 bytes 



I Dictionary |Text reference} Text chain 1 
| reference |to this item | j 

i j l J 

This entry is inserted into a chain of 
similar entries in the alphabetical order 
of the BCD of the identifier. 

If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an identi- 
fier is found in the text, an entry is 
created in a chain of entries from the dic- 
tionary entry of the identifier. If the 
identifier is that of a BASED item, an 
entry is also created in a chain of entries 
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from the dictionary entry of the associated 
pointer. 

Each chain member thus represents a text 
reference to an identifier and has the 
form: 



2 bytes 



Statement number 



3 bytes 



Text chain 



Each reference chain for an identifier 
is in text scratch storage. 

The sorted chain of identifiers is then 
scanned, and for each entry in the chain 
the following actions take place: 

1. The statement number of the DECLARE 
statement, if any, in which the iden- 
tifier was declared is printed 

2. The BCD of the identifier is printed. 

3. If the ATR option is specified, the 
dictionary entry of the identifier is 
analyzed and its attributes are 
printed. For variables having con- 
stant dimensions and/or constant 
string lengths, these dimensions and 
lengths are printed. 

Except for file attributes, the 
attributes printed will be those 
obtaining after conflicts have been 
resolved and defaults applied. Since 
the file attribute analysis does not 
take place until after the attribute 
list has been prepared (see Phase GA) , 
file attributes in the list are those 
supplied by the programmer, regardless 
of conflicts. 

4. If the XREF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number con- 
tained in each entry is printed 

Finally, all scratch storage is released 
and control is passed to the syntax check 
option phase. 

Phase Fl 

Phase Fl is entered at the end of the dic- 
tionary phase. It tests the syntax check 
option flag which was set by module AB. If 
the flag indicates that the option is in 
effect at the "TERMINAL" error level, con- 
trol is passed immediately to the next 
phase. If the option is in effect at the 
"SEVERE* or "ERROR" level, Fl checks to see 
if any such errors were found during the 
read- in and/or dictionary phases. If they 
were, Fl either terminates the compilation 
(nonconversational tasks) or issues a mes- 
sage to the terminal (conversational tasks) 



asking the user if he wishes to terminate 
or continue compilation. If no errors of 
the specified or greater level were found, 
control is passed to the next phase. Fl 
issues diagnostic messages describing the 
action taken. 



PRETRANSLATOR LOGICAL PHASE 

The purpose of the Pretranslator Phase is 
to expand those statements in the language 
that can be broken down into simpler state- 
ments, and to insert explicitly generated 
statements in place of implied ones. 

Second level markers (see Section 4) are 
removed from internal compiler codes, and 
some of the I/O statements are changed into 
a form more suitable for the pseudo-code 

phase. 

Argument lists are examined and the 
matching of arguments with parameter 
descriptions takes place, with temporary 
variables being created where necessary, 
e.g., where data conversions are required. 

If the compilation contains ON CHECK 
conditions the appropriate calls to the 
library routine are provided. 

Any structure assignments containing the 
BY NAME option are processed. 

If any structure assignment statements 
or structures in I/O lists are detected in 
the program, they are expanded into scalar 
assignments and DO groups. 

If the program contains any array assig- 
nments, or array expressions in I/O lists, 
these are expanded into DO loops and scalar 
assignments or expressions. 

If the program contains iSUB references, 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 

Additions to the Text 

In addition to changing the content of the 
text, the Pretranslator introduces some new 
symbols and grammatical forms into the 
source text. These are as follows: 

The Umbrella Symbol : this is designated by 
the symbol code X f 5E*, which is used to 
introduce a literal as an operand. It is 
used only as a bound of a DO loop, or in a 
call of the dope vector pseudo- variable. 

Statements within statements : a list of 
statements may be introduced within another 
statement. In this case the inserted list 
is enclosed in parentheses. Statements in 
the list are given no statement number 
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field, but they have semi-colons at the 
end. 



form similar to ALLOCATE and FREE 
statements. 



I/O statements : the form of I/O statements 
is changed considerably during the pretran- 
slator phases, as explained in the descrip- 
tion of Phase GB. 

SPY and SELL statements ; special state- 
ments are introduced for manipulating tem- 
porary storage at object time; they have a 



Temporary Storage ; Pretranslator phases 
create temporary variables for function and 
procedure calls where the arguments do not 
match the final parameters, where expre- 
ssions appear as arguments, for control 
variables for DO loops in array and struc- 
ture assignments, and for iSOB defined sub- 
script lists. The Pretranslator has no 
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mechanism for evaluating expressions. 
Therefore, temporaries which have no data 
type are created for expression arguments 
with no parameter description. Such tem- 
poraries are known as ' chameleon* tem- 
poraries. The data type of these chameleon 
temporaries is completed by the Translator 
generic phase when the resultant data type 
of the expression has been determined. 

When the Pretranslator creates a tem- 
porary from an argument which contains any 
array with adjustable bounds or adjustable 
string length, compiler functions (see Sec- 
tion 4) are generated in-line, to set up 
the adjustable quantities at object time, 
to enable storage of the correct size to be 
acquired by means of the BUY statement. 

The temporary variables created by the 
Pretranslator have dictionary entries simi- 
lar to variables declared in the source 
program, except that the temporaries do not 
have BCD names. 

Phase GA 

Phase GA is an optional phase which scans 
the STATIC chain for file constants and 
OPEN control block entries. 

For file constants a DECLARE control 
block is constructed from the file name and 
attributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT option a dictionary entry 
is constructed, chained from the file con- 
stant, containing the storage image of the 
56-byte DECLARE control block. 

For OPEN control block entries an OPEN 
control block is constructed from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, is constructed. This new entry con- 
tains the 8-byte storage image of the OPEN 
control block . 

When the COBOL option is encountered in 
the ENVIRONMENT string of a FILE statement, 
phase GA sets the low-order bit in the fif- 
teenth byte of the FILE dictionary entry. 
Although this action overwrites the dic- 
tionary reference of the ENVIRONMENT 
string, it is permissible since GA is the 
only phase which processes this string. 

The EXCLUSIVE second level marker is 
recognised in the file attribute dictionary 
entry during the diagnostic check and con- 
struction of the DCLCB or the OCB. 

Phase GB (GC) 



Phase GB, containing Modules GB and GC, 
processes I/O statements. GB removes all 
second level markers from internal charact- 



er codes (see Section 4) . It then reorders 
the options so that either EDIT, DATA, or 
LIST options appear last. 

In data lists the DO specification is 
moved so that it precedes the relevant 
list, and the END statement is added. 

In format lists iteration factors are 
expanded. 

RECORD I/O statements for which the 
COBOL file option is recognized are 
examined for validity by GC. Diagnostics 
are put out for LOCATE and READ SET state- 
ments for which COBOL files are used. A 
temporary variable is created to assist 
such data transfers as occur when a COBOL 
record is read into or written from a 
structure which does not consist entirely 
of one of the following: 

• doubleword data 

• fullword data 

• ha If word binary data 

• character string data 

• aligned bit string data 

• a mixture of character string and 
aligned bit string data 

I/O activity found within a PROCEDURE or 
BEGIN block causes the bit X«10 f to be set 
to one in the optimization byte of its 
entry type 1. 

Phase GK 

Phase GK scans the source text for function 
references. If it finds one, it inserts a 
special marker byte before the argument 
list, followed by: 

1. Two code bytes giving information 
about the type of function, and wheth- 
er it was called with the TASK option 

2. The current statement number 

3. The current block level and count 

This phase also inserts a special argu- 
ment marker before each argument in the 
list, followed by the reference of the 
corresponding parameter and a code byte to 
show whether or not the argument is speci- 
fied in a SETS list. The number of argu- 
ments present is checked against the number 
given as required by the corresponding dic- 
tionary entry. 

NULL, NULLO, and EMPTY built-in func- 
tions are recognized and converted to 
constants. 
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Phase GO 

This phase acts as a pre- processor for 
phase GP. 



Phase GP 

Phase GP scans the text for procedure and 
function calls with arguments. These are 
detected by the special markers inserted by 
Phase GK. 



Temporaries (see Section 4) are created 
for any arguments which are expressions. 
(An expression is defined as being any 
sequence of variables and operators, other 
than single variables followed only by a 
subscript list, or only by a defined sub- 
script list and then a subscript list) . If 
a parameter description has been declared 
in an entry declaration, the temporary 
which is created is of the same type as the 
parameter description. Otherwise, a 'cha- 
meleon* temporary of unspecified data type 
is created, its type being subsequently 
completed when the expression type has been 
determined by the translator generic phase. 

Expressions are scanned for arrays 
(including partially subscripted arrays) , 
structures, or the end of the expression, 
in order to determine the highest form of 
aggregate in the expression, so that the 
correct type of temporary may be created. 

Where the expression contains a partial- 
ly subscripted array, a temporary is 
created with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 

when single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action may be taken in one of two ways. 

1. If the data types are compatible, a 
warning message is printed, and a tem- 
porary is created 

2. If the data types are incompatible, an 
error message is printed, and the pa- 
rameter description is ignored 

When the argument is a single partially 
subscripted array which matches the parame- 
ter, a special temporary is created which 
has the same dimensionality as the number 
of cross sections in the subscript list, 
and it appears to be defined upon the ori- 
ginal argument. Code is then generated to 
initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
list. 



Whenever a temporary is created, a BUY 
statement contained in nested statement 
brackets is inserted in the output text, 
followed by the assignment of the expres- 
sion or non-matching argument to the tem- 
porary. After the end of the PROCEDURE or 
function call, all the temporaries 
generated in the call are released by means 
of a SELL statement in nested statement 
brackets . 

In all argument temporaries created by 
phase GP, other than those created for con- 
stants, a special flag bit is set on (see 
Section 4) , but in the case of temporaries 
created for arguments to built-in func- 
tions, this bit is turned off by phase IM. 
This bit is used in phase QU when half word 
instructions replace fullword instructions 
in the manipulation of half word binary 
operands which are temporary arguments. 

Temporaries are created for constants 
which are specified as arguments to func- 
tions defined by the programmer. 

If a TASK, EVENT, or PRIORITY option is 
present in a CALL statement, then any tem- 
poraries which are created are of the 'not 
sold* type. 

If GENERIC entry labels are specified as 
arguments to procedures, a special dic- 
tionary entry is made which contains the 
argument and parameter description dic- 
tionary references, to enable the Transla- 
tor generic phase to select the correct 
generic member. 

A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 

When subscript lists for the number of 
cross sections are being checked, a severe 
error message is printed if a subscript 
list contains too many subscripts, and the 
statement is deleted. 

Phase GU 

Phase GU scans the source text for PROCE- 
DURE, BEGIN, and END statements, and for 
statements that may raise a possible CHECK 
condition. 

A list of all items currently checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 

Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of currently checked 
items. If the item appears in the list, a 
SIGNAL CHECK statement is created for it, 
either before the statement concerned (for 
labels and entry names) or after it (for 
variables) . 
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Phase HF 

The purpose of phase HF is to detect struc- 
ture assignment statements, possible struc- 
ture expressions in data lists in GET and 
PUT statements, and nested statements, in 
particular nested structure assignments. 

The leftmost structure in an expression 
or assignment is used as a basis for com- 
parison, and if similar structuring is not 
found throughout the expression or assign- 
ment, diagnostic messages are issued. Any 
expression containing no structures is left 
unchanged. 

The base elements of the structures are 
found, and if the referenced structures are 
dimensioned, a temporary is created for 
each dimension. It is then added to the 
AUTOMATIC chain for the appropriate block. 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular dimen- 
sion. Base elements are assigned, with the 
temporaries as subscripts, and with scalars 
remaining unchanged. END statements are 
created for the DO loops, and SELL state- 
ments for the temporaries. The statements 
which have been created are nested within 
the original statement. 

Phase HK 

The purpose of Phase HK is to detect array 
or scalar assignments, possible array 
expressions in I/O lists in GET and PUT 
statements, and nested statements, in par- 
ticular nested assignment statements. 

The leftmost array in an expression, or 
the leftmost array or scalar in an assign- 
ment is used as a basis for comparison, and 
if similar dimensions or bounds are not 
found in the array references, diagnostic 
messages are issued. Any expression con- 
taining only scalars is left unchanged. 

For unsubscripted arrays which are 
equally spaced in storage only one tem- 
porary is bought. For all other arrays a 
temporary is bought for each dimension, 
except in the case of certain partially 
subscripted arrays where the number may be 
minimized. Each temporary will be added to 
the AUTOMATIC chain for the appropriate 
block. If the ON-condition name SUBSCRIPT- 
RANGE is enabled for any statement, a tem- 
porary will be bought for each dimension in 
all cases. Iterative DO loops are con- 
structed: for an unsubscripted array 
expression of dimensionality N, the tem- 
porary will iterate between the lower bound 
of the Nth dimension and an evaluated pro- 
duct so that all elements of the array are 
processed; while for other arrays the tem- 
poraries will iterate between the lower and 
upper bound of the particular dimension of 



the array. The assignment statement is 
added to the output string with additional 
subscripts where necessary. End statements 
are created for the DO loops, and SELL 
statements for the temporaries. The state- 
ments which have been created are nested 
within the original statement. 

The syntax of pseudo- variables is also 
checked. 

Phase HP 

Phase HP scans the source text for 
references to items defined using iSUBs. 
For each reference found, the subscripts 
are computed for the base array correspond- 
ing to the subscripts given for the defined 
array. 

The subscripts of the defined array are 
assigned to temporaries specially created 
for this purpose, which are then used to 
replace the iSUBs in the defining subscript 
list. The base array, with the subscript 
list so formed, replaces the defined array 
in the text. 



TRANSLATOR LOGICAL PHASE 

The Translator phase consists of two phys- 
ical phases, the stacker phase and the gen- 
eric phase. The purpose of the translator 
is to convert the output from the Pretrans- 
lator into a series of "triples" (see Sec- 
tion 4) . A "triple" is in the form of an 
operator followed normally by two operands. 

The translation is achieved by using a 
double stack, with one part for operators, 
and the other part for operands, and 
assigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack, and 
the other weight (the compare weight) ap- 
plies when the operator is obtained from 
the input string. 

When an operator is obtained from the 
input string it is compared with the top 
stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various manipulations of the stack 
items, after which the translation process 
continues. 

For the purposes of translation, the 
input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc. , are 
regarded as operators. 
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After translation, the text string con- 
sists of operands and operators. All 
statements start with an operator to indic- 
ate a statement number or label, followed 
by the statement type, which may be a 
single operator, as in the case of RETURN 
or STOP, or which may be an operator such 
as a function or subscript marker, followed 
by a list of arguments- This list may also 
include compiler generated statements, 
e.g., DO loops for I/O lists. All I/O 
options are regarded as operators and 
require no markers before them. The end of 
the source text will be marked by a special 
operator, and compiler generated code, 
which may follow this end- of- pro gram mark- 
er, will appear between the marker and the 
special second-end-of- program marker. The 
end of a block of text will be marked by an 
EOB operator. The program is now assumed 
to be syntactically correct. 

Phase IA 

Phase IA rearranges the source text into a 
prefix form, in which parentheses and 
statement delimiters have been removed, and 
the operations within a statement have been 
so arranged that those with the highest 
priority appear first. 

As operators and operands are encoun- 
tered, they are stored in stacks. Tables 
give the priority of each operator as it 
appears in the input text and in its stack. 

When an operator is found during the 
scan of the source text, its compare weight 
(see Section 4) is tested against the stack 
weight of the top operator in the stack. 
If the compare weight is the lesser of the 
two, then action is taken according to the 
compare operator. This is referred to as 
the compare action. Similarly, if the com- 
pare weight for the current operator found 
in the scan is greater than or equal to the 
stack weight of the top stack operator, 
action is taken according to the top stack 
operator. This is referred to as the stack 
action. Normally, the compare action is to 
place the compare operator in the stack, 
and to continue the scan, placing any sub- 
sequent operand in the stack until another 
operator is found. The normal stack action 
is to generate a triple, consisting of the 
top operator in the stack and the top two 
operands, eliminating the items from the 
stack, and inserting a special flag as the 
operand of the triple which is now at the 
top of the stack. The source (compare) 
item is then compared with the new top 
stack item. 

The output text of the stacking phase is 
in the form of a series of triples, i.e., 
statement types with no operands, and 
operators with one or two operands. If the 
result of a triple operation is to be used 



in a later triple, the appropriate result 
is flagged accordingly. 

Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference, Phases IL and IM are marked 
wanted. If it does not. Phases IL, IM, IN, 
IO, IP, IQ, MG, MH, MI, MJ, MK, MM, MN, and 
MO are marked not wanted. Phases MB and MC 
are marked wanted when the source text con- 
tains pseudo-variables or multiple assign- 
ments; otherwise, they are marked not 
wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC) . 
If LB and LC are requested, the marking of 
LG and LH is left until that stage of com- 
pilation; otherwise, LG and LH are marked 
by Phase IA independently. 

When ALLOCATE and FREE statements occur, 
phase NG is marked wanted. When LOCATE 
statements occur, phase NJ is marked 
wanted. 

Phase IG 

Phase IG is an optional phase which is 
loaded to process array and structure argu- 
ments to built-in functions. When aggreg- 
ate arguments are given for built-in func- 
tions they are expanded by the structure 
and array assignment phases so that the 
built-in functions appear as base elements, 
subscripted where necessary. 

Phase GP examines these arguments, and 
ascertains whether it is necessary to cre- 
ate a dummy. If it is necessary, a scalar 
dummy is created, but the assignment of the 
argument expression is not inserted in the 
text, as this would be an invalid aggregate 
assignment. 

Phase IG examines the text for a BUY 
statement for a dummy for an aggregate 
argument to a built-in function, and then 
inserts an assignment triple in the correct 
place in the text. 

Phase IK 

This phase immediately precedes the phase 
IL and shares with it the initialization 
processes required by the main generic 
phase IM. It obtains text block storage 
and moves into it routines and a table that 
will be used later by the main generic 
phase. Part of the storage is reserved for 
use by the main generic phase as a nested 
function stack area. Control is passed to 
phase IL. 

Phase IL 

This phase immediately precedes the main 
generic phase IM and completes the initial- 
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ization process begun by phase IK. It 
obtains 4K bytes of scratch storage and 
places in it the entire built-in function 
table and a list of constants used by the 
main generic phase. Registers are set to 
point to the built-in function table, to 
the list of constants, and to the nested 
function stack area reserved by phase IK. 
Further text block storage is obtained for 
use by the main generic phase and a regis- 
ter is set to point to it. Control is 
passed to phase IM. 



Phase IX 

Phase IX checks that POINTER and AREA 
references are used as specified by the 
language. This phase is loaded only if 
POINTER or AREA references are found, 
declared either explicitly or contextually. 
Error messages are produced if errors are 
found and the statement in error is erased. 

Data type triples in the text are 
scanned and a stack of temporary results is 
created containing the values: 



Phase IM 

This phase is the main generic processor. 
It scans the source text for procedure 
invocations by a CALL statement, procedure 
or library invocations by a function 
reference, and assignments to "chameleon" 
dummy arguments (see Phase GP) . 



X 1 40' for POINTER 

X , 02 > for AREA 

X'OO' for any other data type 

The maximum permitted number of tem- 
poraries at any one point in a program is 
200. The compilation is terminated if this 
figure is exceeded. 



Any procedure which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function 
reference is also replaced by the appropri- 
ate family member. 



Phase JD 

Phase JD scans the text for concatenation 
and unary prefixed triples with constant 
operands. These are evaluated and the 
results are placed in new dictionary 
entries. The references are passed through 
a stack into the corresponding result slots 
in the text. 



The arguments passed to library routines 
are checked for number and type, and a con- 
version inserted where necessary and 
possible. 

The type and location of the result of 
all function invocations is placed in the 
text which follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned to a "chame- 
leon" dummy is determined and set in the 
dictionary entry which relates to the 
dummy. 

The argument bit, set on for all argu- 
ment temporaries created by phase GP, is 
turned off for arguments of built-in 
functions. 



Phase IT 

Phase IT scans the source text for function 
triples and, in particular, the built-in 
functions for which code will be generated 
in-line. Further tests are made to detect 
the functions which, according to the 
method used to generate in-line code, are 
optimizable. This applies only to the SUB- 
STR, UNSPEC, and INDEX functions. All 
references to •chameleon* temporary assign- 
ments within the scope of these functions 
are removed subject to certain restrictions 
imposed by the function nesting situation. 



AGGREGATES LOGICAL PHASE 

The aggregates phase consists of three 
physical phases, the preprocessor (phase 
JI) , the structure processor (phase JK> and 
the DEFINED chain check (phase JP) . 

The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 

The DEFINED chain check ensures that 
items DEFINED on arrays and structures can 
be mapped consistently. 

Phase JI 

The first function of phase JI is to obtain 
scratch storage in which the text skeletons 
contained in phase JJ are to be held. 
Phase J J is then loaded, and its contents 
are moved to the scratch storage for subse- 
quent use by phases JI and JK. Phase JJ is 
then released and control is returned to 
phase JI. 

The main function of phase JI is to 
expedite data interchange activities. A 
scan of static, automatic, and controlled 
chains is performed. The chains are reor- 
dered so that all data variables appear 
before non-data items. Adjustable PL/I 
structures and arrays are detected. Each 
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entry in the COBOL chain is mapped as far 
as possible at compile- time f removed from 
the chain, and placed in the appropriate 
AUTOMATIC chain. 

Phase JK 

This phase scans the AUTOMATIC, STATIC, and 
CONTROLLED chains for arrays, structures 
(including COBOL structures), adjustable 
length strings, DEFINED items, AREA, and 
POINTER arrays and structures, TASK and 
EVENT arrays, and TASK and EVENT arrays in 
structures . 

For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made: 

• The offset from the start of the major 
structure 



generate code for the initialization of 
arrays of TASK, EVENT, and AREA variables, 

DEFINED items are processed in the fol- 
lowing way: 

• Code is generated to set the multi- 
pliers and virtual origin address of 
correspondence defined arrays without 
iSUBs in the dope vector of the DEFINED 
items from the defining base dope 
vector . 

• Code is generated for overlay DEFINED 
items if they do not fall into the 
class which is to be addressed direct- 
ly. The code first maps the DEFINED 
item, if necessary, calculates the 
address of the start of the storage to 
be used by the DEFINED item, and final- 
ly, relocates the DEFINED item using 
this address. 



• The padding required to align the ele- 
ments on the correct boundary 

• All multipliers of arrays of 
structures . 

For all minor structures and major 
structures the following calculations are 
made: 

• Size 

• The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 

Where a structure contains adjustable 
bounds or string l-engths, code is generated 
to call the Library at object time. 

For arrays, the multipliers are calcu- 
lated, unless the array contains adjustable 
items, in which case the Library performs 
the calculations. 

For adjustable structures, arrays, or 
strings, code is generated to add a symbol- 
ic accumulator register into the virtual 
origin slot of the dope vector, and the 
accumulator register is incremented by the 
size of the item. 

Calculations are made in a similar fash- 
ion for arrays of strings (in structures or 
otherwise) with the VARYING attribute. In 
addition, code is generated to set up an 
array of string dope vectors which refer to 
the individual strings in the array using 
the dope vector. Code is also generated to 
convert the original dope vector to refer 
to the array of string dope vectors, 
instead of to the storage for the array. 

The routine which generates code for 
arrays of VARYING strings is also used to 



Dope vector descriptor dictionary 
entries and record dope vector dictionary 
entries are made for items which need to be 
mapped at object time, or which appear in 
RECORD -oriented input/output statements. 



Phase JP 

Phase JP scans the DEFINED chain, and dif- 
ferentiates between the following: 

1. Correspondence defining 

2. Scalar overlay defining 

3. Undimensioned structure overlay 
defining 

4. Mixed scalar- array- structure-string 
class overlay defining 

In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item which 
may validly overlay the elements of the 
base belong to the same defining class, and 
that the base is contiguous. 

In scalar overlay defining, this phase 
checks that the defined item may validly 
overlay the base. 

For undimensioned structure overlay 
defining, this phase checks that the ele- 
ments of the defined item may validly over- 
lay the elements of the base. 

For mixed scalar- array- structure- string 
class overlay defining, this phase checks 
that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character), and that 
the base is contiguous. 
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Phase JZ 

Phase JZ examines the CCCode to determine 
if the compiler is attempting to abort: if 
it is, control is passed to XA, in order 
that error messages may be processed by the 
diagnostic editor; if not, control is 
passed to the next logical phase. 



OPTIMIZATION LOGICAL PHASE 

The optimization logical phase consists of 
several physical phases and is loaded if 
0PT=2 is specified in the PLIOPT field of 
the PLI command - 

The work done during the optimization 
phase can be split into two parts. The 
first consists of testing the text and die- 
tionary to see if optimization is permiss- 
ible. As a result of these tests, tables 
are built pointing to optimizable text. 
The second part consists of code generation 
and modification requiring scanning of the 
tables built in the first part, and direct 
references to the text and dictionary. 

All code generation resulting in text 
expansion is placed in a patch file, and 
the point of insertion in the text is over- 
written with a PTCH triple pointing to the 
patch. The last physical phase merges the 
patch text into the main program text. 

Optimized code is produced for subscript 
address calculations and iterative DO- loop 
control. In the case of subscripts most of 
the optimized code consists of reordered 
triples, but optimized loop control code is 
generated as pseudo-code using BXLE, and 
BXH instructions. 

Only simple loops and subscript lists 
are optimized, and the variables involved 
must be real, fixed binary, scalar integers 
and the constants must be decimal integers. 

The two main problems in deciding wheth- 
er it is permissible to optimize code are: 

1. Aliasing of variables 

2. The action of the program for excep- 
tional conditions 

Optimization is inhibited where it is dif- 
ficult, or impossible, to decide that opti- 
mization will produce an object program 
which will execute according to the rules 
of PL/I. The keyword REORDER, indicates to 
the Optimization Phase, that ON- units for 
exceptional computational conditions may be 
ignored. This enables more cases to be 
optimized than for the default setting of 
ORDER. 



Three types of subscript optimization 
are performed: 

1. Transformation - Where possible, a 
control variable used as a subscript 
is transformed such that, instead of a 
"subscript * multiplier + virtual ori- 
gin' address calculation, each itera- 
tion produces a simple increment of a 
register to access the next element. 

2. Invariance - Where possible, an 
invariant subscript calculation inside 
a DO-loop is moved outside. 

3. Commoning - Where possible, a common 
subscript expression is only calcu- 
lated once and this value is placed in 
a register to be used at later 
occurrences. 

For array expressions an attempt is made 
to combine the incrementing of a trans- 
formed control variable with the BXLE or 
BXH of the optimized loop control code. 

The text is optimized starting from the 
innermost of a nest of iterative DO- loops 
and working outwards. This enables patch 
code, which moves out of a DO-loop, to be 
included in the processing of the enclosing 
DO-loop, hence moving out code as far as 
possible in a nest of loops. 

Phase KA (KB) 

Contains utility routines and common data 
space used by the later optimization 
phases. Details of the utilities are given 
in Appendix G. 

The utilities enable the optimization 
phases to build and process tables in text 
blocks without concern for physical block 
boundaries, status of text blocks, or main- 
taining pointers to first, last, and cur- 
rent table entries. 

The facilities provided: 

1. Define a table using a table control 
block area. 

2. Add new entries to the end of a table. 
Table entries may be of fixed or vary- 
ing length and a table can contain 
more than one type. 

3. Scan a table forwards or backwards. 

4. Make direct reference to table 
elements. 

5. Delete a table. 

6. Specify locking of entries. 

7. Remove all locks on table entries. 
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Phase KC 

Phase KC scans the text for DO-loop speci- 
fications. If the loop is potentially 
optimizable, then any expressions in the 
initial, the TO, or the BY specifications 
are assigned to temporary variables. The 
expression and the assignment are moved 
outside the loop and are replaced in the 
specification by a simple reference to the 
temporary variable. 

Text is also scanned for ON-units. The 
occurrence of each type of ON-unit is re- 
corded by the appropriate bit in the mask 
used by Phase KG. 



Phase KE 

Phase KE performs a scan of the dictionary 
and a scan of the text. The purpose of 
these scans is to mark variables 'unsafe 1 
if they can possibly be affected by changes 
to other variables (i.e., aliases). 
Variables are marked unsafe if they are 
EXTERNAL, DEFINED, defined upon, BASED, or 
PARAMETERS, or if they are (or might be 
through being arguments of procedure calls) 
arguments of the ADDR built-in function. 

In addition, during the text scan, the 
DO MAP table is created. This table con- 
tains an entry for each DO-loop and proce- 
dure in the source text. Each entry con- 
tains information describing the loop or 
procedure and giving its location in the 
text. A chain is constructed through these 
entries giving the order in which they are 
to be processed by subsequent K phases. 

Phase KG 

Phase KG scans the text corresponding to 
each DO MAP entry in turn and builds up two 
lists which are chained off the DO MAP 
entry. The USE list is a list of all the 
real, fixed binary, scalar integer 
variables which are used within the loop. 
A flag byte indicates whether the variable 
is assigned to or is invariant in the loop. 

The SUBS/REGION list consists of two 
types of entry: 

1. A SUBS entry which contains the text 
reference of a SUBSCRIPT triple refer- 
ring to an array for which SUBSCRIPT- 
RANGE is not enabled. 

2. A REGION entry which contains the text 
reference of a triple which results in 
an assignment to one or more 
variables. There are four types of 
REGION boundaries: 

a. A GLOBAL region boundary which 

contains the text reference of a 



point where the value of any vari- 
able could be changed. 

b. A PARTIAL SAFE boundary which con- 
tains the text reference of a 
point where an assignment is made 
to a variable which is a SAFE real 
fixed binary scalar integer, fol- 
lowed by the dictionary reference 
of this variable. 

c. A PARTIAL UNSAFE region boundary 
which contains the text reference 
of a point where an assignment is 
made to an UNSAFE variable (not 
just a scalar) . The dictionary 
reference is not inserted in this 
case. 

d. An ITDO region boundary which con- 
tains the text reference of an 
ITDO triple corresponding to an 
enclosed loop. 



Phase KJ 

Phase KJ creates the SUBS TABLE from the 
SUBS/REGION list produced by phase KG. The 
DO MAP created by KE provides the order of 
processing and further information. 

The Region entries from the SUBS/REGION 
list are copied directly into SUBS TABLE 
whenever they occur. The SUBS entries from 
the list are expanded to contain informa- 
tion on the type of expression involved at 
this point. The USE list created by KG 
provides information during this analysis. 
The SUBS/REGION list is deleted by this 
phase. 

The iterative specification triples of 
each DO-loop are inspected, and the spare 
operands used to set flags to indicate 
whether this loop is optimizable for BXLE 
or BXH loop control code. 



Phase KN 

Phase KN provides initialization of the 
scratch storage area used by phase KO. 

An initial text scan is made in DO MAP 
sequence, to remove offsets from optimiz- 
able subscript lists and produce hash 
totals for optimizable subscript expres- 
sions. The hash totals are placed in the 
SUBS/REGION table and are used in phase KO 
to speed up the matching process. 

Phase KO (KP,KQ) 

Phase KO processes text in the order speci- 
fied in the DO MAP, i.e., working through a 
nest of iterative DO-loops and procedures 
from innermost outwards. 
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The three types of subscript optimiza- 
tion: transformation of the control vari- 
able; invariance; and commoning; are per- 
formed and optimized code is generated and 
inserted in a patch file. The code to be 
replaced in the original text is overwrit- 
ten with NOP's and a PTCH triple points to 
the patch text. 

All three types of subscript optimiza- 
tion require searches for multiple occur- 
rences of the same expression in the text. 
This is done by scanning the SUBS TABLE for 
matching triple expressions in optimizable 
subscript lists. When a match is found a 
chain is constructed in the SUBS TABLE 
between the matched elements. The code is 
generated for one chain at a time. 

Code generated for optimized subscripts 
may be inserted: 

1. Before the ITDO triple, i.e., where an 
invariant subscript calculation is 
moved out of a loop or where the ini- 
tial setting of a transformed control 
variable is required. 

2. Before the ITD 1 triple, i.e., for the 
incrementing code of a transformed 
control variable. 

3. After the ITD' triple, i.e., the 
DROP'S for symbolic registers used in 
the optimized code. 

4. At the point of use in the subscript 
list. 

For array expressions the incrementing code 
for a transformed control variable will be 
deleted if a BXLE or BXH can be generated 
which will increment the transformed con- 
trol variable and control the number of 
iterations of the loop. 

USSL declarations may be inserted in the 
optimized code to indicate that registers 
have priority and need not be saved and 
restored at branch points . The register 
allocator phase gives these registers 
priority over normal symbolic registers. 



Phase KT 

Phase KT is a renamed replacement of phase 
LA which is now obsolete. It is always 
loaded. This phase is a utility phase 
which remains in storage throughout the 
remainder of the Optimization Phase and the 
whole of the Pseudo-Code Phase. It pro- 
vides the main scanning routines to handle 
input and output of text containing triples 
and pseudo-code. 

The routine/subroutine directories in 
Section 3 give a complete list of the rou- 



tines provided, together with brief 
descriptions of their functions. 

Phase KU(KV) 



Phase KU has three main functions performed 
during a single text scan. 

The first function is DO-loop control 
optimization. Each ITDO triple encountered 
during the text scan is checked to deter- 
mine whether or not it has been flagged as 
being optimizable by a previous phase. If 
not flagged the scan is continued. All 
DO-loop control specifications headed by an 
ITDO triple flagged as optimizable are 
replaced in text by an optimized pseudo- 
code group using the BXH and BXLE instruc- 
tions. There are three basic forms to this 
optimized pseudo-code control specifica- 
tion, the particular one used for any loop 
depending on the type of step. 

The second function is to detect each of 
the PTCH triples inserted into text by a 
previous phase. The corresponding patches 
are obtained from patch file text blocks 
and are processed as necessary before being 
inserted into text in place of the PTCH 
triple. 

The last function is that of the sub- 
script list processing. Each innermost 
subscript list encountered, as indicated by 
the presence of a SUBS triple in the main 
text, is checked for the occurrence of COMA 
or COMR triples within it. The SUBS triple 
is then altered as may be necessary. 



PSEUDO-CODE LOGICAL PHASE 

The pseudo-code phase accepts the output of 
the translator phase , and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 
certain triples and replaces them by 
pseudo-code, until the entire text is in 
pseudo-code form. On completion of this 
phase, control is handed to the storage 
allocation phase. 

Pseudo-Code Design 

Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 

Pseudo-code is constructed in basic 
units, the majority of which have a stan- 
dard size of three or five bytes. A vari- 
able sized unit, however, is also available 
to allow flexibility, its length being 
specified by a length code within the unit. 
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The formats of pseudo-code instructions are 
shown in Section 4. 

A unit consists of a one-byte operation 
code followed by normally f a two- or four- 
byte field, or on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 



Pseudo-Code Items 

In addition to there being one pseudo-code 
item for each machine instruction which 
could be generated, there are also pseudo- 
code items which are produced to convey 
information from one phase of the compiler 
to another. 

These items of information have the same 
format as a pseudo-code item r so that the 
handling and scanning of the source text is 
standardized. They do not, however, appear 
in the final object code. 

Register Description 

In all cases where a general purpose regis- 
ter appears in pseudo-code, it will be 
described symbolically. When conventional 
registers are required in, for example, 
calling sequences, the registers will be 
referred to physically, as they will be in 
all cases of floating-point register usage. 

The Use of Symbolic Unassigned Registers 

Whenever a new register is required while 
pseudo-code is being generated, a symbolic 
register counter is incremented by one and, 
subject to this new value not being greater 
than 16,383, it is used as the symbolic 
name of the required register. When this 
register is no longer required a DROP 
pseudo-code item is inserted into the text 
to indicate to the Register Allocation 
Phase that the physical register allocated 
to this symbolic register may be 
reassigned. 

The Use of Physical Registers 

Physical general purpose registers will be 
used either as arithmetic registers or as 
parameter registers. 

With arithmetic registers, it is the 
responsibility of the pseudo-code genera- 
tion phases to save and restore the regis- 
ters as necessary. This will apply both to 
the general purpose arithmetic registers 
(namely 14 and 15) and to the four 
floating-point registers. Although this is 
of primary interest to the expression eval- 
uation phases, it should be realised that 
all phases which generate calling sequences 
must be aware of the current status of 



arithmetic registers, and generate code to 
save and restore them as necessary. 

In the case of parameter registers, 
however, the Register Allocation Phase will 
be able to save and restore them as 
required. 



Temporary Descriptors 

As expressions are evaluated, a series of 
intermediate temporary results are 
obtained. These results, or their 
addresses, may be contained in symbolic or 
assigned registers, in a dictionary 
reference, with or without an index regis- 
ter, or in workspace. Temporary descriptor 
triples (TMPD) are inserted in the text to 
enable the correct pseudo-code instructions 
to be generated from the triples. The for- 
mat of TMPD triples is described in Section 
4. 



Temporary Workspace 

A block of temporary workspace is used to 
store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next avail- 
able workspace location within the block, 
and then update the location pointer, 
whenever the necessity to save an interme- 
diate result arises. The location of the 
intermediate result is then described for 
later phases by a TMPD in the text. Inter- 
mediate results are only required during 
the execution of single PL/I statements; 
they are never preserved from one statement 
to another. 

At the end of the pseudo-code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 
each Dynamic Storage Area (DSA) by Phase 
PT. 

Phase LB 

Phase LB scans through the text for PROCE- 
DURE, BEGIN, and ALLOCATE statement 
triples. 

Whenever one of these is found, a scan 
is made through the immediately succeeding 
second file statements; this is for any IDV 
(initial dope vector) statement referring 
to a variable replication factor in the 
array initial string. Processing of these 
statements and of the corresponding array 
initial strings is then carried out. 

On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 
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1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTOMATIC chain in 
the dictionary. For any scalar 
variables that have been declared INI- 
TIAL, a set of triples is created and 
inserted into the text. For any array 
declared INITIAL, the initial string 
is scanned, and a mixture of triples 
and pseudo-code is generated. 

2. For ALLOCATE triples, if the item has 
been declared INITIAL, the initial 
string is scanned, and a mixture of 
triples and pseudo-code is generated. 

Phase LB also marks Phase LG (DO-groups) 
as wanted or not wanted; this is done in 
cooperation with Phase IA. 



Phase LD 



variables, subscripts, functions, and argu- 
ment markers. 



Phase LR 

The purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 
by obtaining 4,096 bytes of scratch storage 
and setting stack pointers. The scan phase 
is initialized and Phase MP is marked. 

The translate table for scanning tri- 
ples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first IK area of scratch 
storage. Subroutines required by phase LS 
are also moved into scratch storage at this 
time. Finally, control is passed to Phase 
LS. 



Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 



Phase LS 



When a scalar variable is found, the 
phase constructs two dictionary entries: 
one for the constant, and one for the con- 
verted constant. 

For arrays, the phase scans the initial 
value string, creating an initialization 
table in the dictionary. Replication fac- 
tors are converted and inserted into the 
table? treatment of the constants is then 
as described for scalar variables. 

Phase OS converts the constants to their 
specified internal form. 

Phase LG 

Phase LG scans the text for DO loops. A 
stack is maintained with each entry con- 
taining a description of a DO group. The 
stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made at the top of the 
stack. 

DO specification triples are analyzed 
and expressions are assigned to tem- 
poraries; subscripts in the control vari- 
able are assigned to binary integer tem- 
poraries if they are themselves variable. 
At the end of each specification, pseudo- 
code and triples are generated to control 
the loop. 

Triple operators (see Section 4 > pecu- 
liar to the specification of DO loops are 
removed from the text. 

For control variables, other than simple 
scalars, text is placed in the DO stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for pseudo- 



Phase LS scans the source text to convert 
expression triples to pseudo-code. If a 
triple produces a result, it is added to 
the temporary work stack. 

For the arithmetic triples +,-,*#/,**, 
prefix + f and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source types as operands, is 
inserted in the text. In-line pseudo-code 
is generated for all operators except ** 
and some complex type * and / operators. 
In these cases, library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 
from the text. 

The operands of comparison triples GT, 
GE, equals, NE, LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch-on- false is inserted. Otherwise, 
the result is a length 1 bit string. 

For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 
is zero, TMPD triples, containing the 
intermediate result from the top of the 
stack, are inserted in the text after the 
triple. The result is a CHARACTER or BIT 
string or a compare operator. 

When subscript triples appear, a symbol- 
ic register number is inserted in the tri- 
ple. The result contains the dictionary 
reference of the array and the symbolic 
register. 
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For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 

For add, multiply, and divide functions, 
the function and argument triples are 
removed from the text. Arithmetic type 
in-line pseudo-code is generated, with 
modifications for the precision and scale 
factor, and the result is added to the 
intermediate stack. 

With pseudo- variable triples, a special 
marker is added to the intermediate result 
stack. 

Other triples which may use an interme- 
diate result, are examined. If an operand 
is zero, two or three TMPD triples, con- 
taining the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand pre- 
cede those for the first operand. 

Phase LV 

Phase LV provides string handling facili- 
ties for the pseudo- code phases. 

It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text. 

A string dope vector description is pro- 
duced from a standard string description. 

Phase LX (LW, LY) 

Phase LX consists of three modules, LW, LX, 
and LY. Module LW acts as a pre-processor 
for LX and LY, moving constants into 
scratch storage prior to loading the 
string -handling modules. 

Phase LX scans the source text to con- 
vert string triples to pseudo-code. If a 
result is produced it is added to a stack 
of intermediate string results. 

For the comparison triples GT, GE, 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line pseudo- 
code is generated if the operands are 
aligned and are of known lengths less than 
or equal to 255 bytes; otherwise, library 
calling sequences are generated. The tri- 
ple and any TMPD triples are removed from 
the text. 

In the case of the string triples CAT, 
AND, OR, and NOT, the operands are con- 



verted to string type by phase LV. Zero 
operands are obtained from associated TMPD 
triples. In-line pseudo-code is generated 
when operands are aligned and are of known 
lengths less than or equal to 255 bytes. 
For the CAT operator, the first operand 
must be a multiple of 8 bits unless the 
strings involved are less than or equal to 
32 bits in length. In-line code is also 
generated for the following cases involving 
non-adjustable varying strings: 

1. Character string concatenation of 
varying strings with lengths less than 
256 bytes. 

2. Bit string operations for AND, OR, 
NOT, concatenation, and comparison 
where the strings are aligned and are 
less than 33 bits in length. 

Otherwise, library calling sequences are 
generated. The triple and any TMPD triples 
are removed from the text, and the string 
result is added to the intermediate result 
stack. 

For TMPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 

In-line code is generated for the BOOL 
functions AND, OR, and EXCLUSIVE OR, when 
the third argument is a character or bit 
string constant and the first and second 
arguments are aligned and of known lengths 
less than or equal to 255 bytes. Otherwise 
library calling sequences are generated. 
Subscript and function triples may produce 
intermediate string results. 

Phase MA 

Phase MA generates pseudo-code for both the 
in-line invocations of TRANSLATE and VERIFY 
and for the invocations which call a 
library routine. It is optional depending 
on the presence of the TRANSLATE or VERIFY 
function in the source program. 

Three kinds of tables are handled: 

1. Compile-time created (up to three) 

2. Floating, initialized by in-line code 

3. Floating, initialized by library 
subroutine 

When three constant tables have been 
created at compile-time, any further occur- 
rence of this case, will cause the con- 
stants of both the second and third argu- 
ments to be handled via the library. 
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Blocks which have RECURSIVE, TASK, or 
REENTRANT attributes will have their own 
table, otherwise one table will be used for 
many blocks . 



Phase MB 

Phase MB scans the text for pseudo-variable 
markers and multiple assignment markers- A 
stack of pseudo-variable descriptions is 
maintained, together with the left hand 
side descriptions of multiple assignments 
when they occur. Pseudo-code and triples 
are generated for pseudo-variables and the 
left hand side descriptions of multiple 
assignments are put out in the correct 
sequence. 

Phase MP 

Phase MD uses the SCAN routine to scan the 
text for ADDR and STRING built-in functions 
for which it generates in-line code. It 
appears before the normal function proces- 
sor phase and removes all trace of the in- 
line function. The general SCAN routine 
passes control when these functions are 
found. 

For all cases of ADDR the generated code 
establishes the start address of the argu- 
ment. If structure name arguments are pre- 
sent the structure chain is hashed for the 
first base-element. For array names the 
address of the first element is calculated. 

If the argument to the STRING function 
is contiguous in main storage, and its 
length is known at compile-time, an adjust- 
able string assignment is generated. 
Otherwise the library routines IHESTGA and 
IHESTGB are called to produce the conca- 
tenated length and to concatenate the ele- 
ments of the array or structure argument. 

Phase ME 

Phase ME identifies all invocations of the 
SUBSTR function and pseudo-variable, all 
UNSPEC, STATUS, and COMPLETION functions, 
and those invocations of the INDEX function 
which can be implemented in-line; and 
generates pseudo-code to perform these 
functions at object time. The scan of the 
text is conducted by the general SCAN rou- 
tine, and all trace of the invocations of 
these functions is removed before the nor- 
mal function processor phase is loaded. 
When the end-of -program marker is encoun- 
tered the terminating routine is entered. 

Phase MG 

Phase MG identifies functions which are to 
be coded in-line, and generates, in their 
place, the pseudo-code to perform the rele- 
vant function. This phase appears before 



the normal function processor phase and 
removes all trace of the in-line function. 

The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the fol- 
lowing functions is found: 



ALLOCATION 


FLOOR 


BINARY 


BIT 


IMAG 


DECIMAL 


CEIL 


REAL 


FIXED 


CHAR 


TRUNC 


FLOAT 


COMPLEX 




PRECISION 


CONJG 







Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the appropri- 
ate routine is entered to generate the 
pseudo-code. When the end-of -program mark- 
er is encountered the terminating routines 
are entered. 



Phase MI 

Phase MI identifies functions which are to 
be coded in-line, and generates, in their 
place, pseudo-code to perform the relevant 
function. This phase appears before the 
normal function processor phase and removes 
all trace of the in-line function. 

The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the fol- 
lowing functions is found: 



MAX 
MIN 



MOD 
ROUND 



If the number of arguments to the MAX or 
MIN functions is greater than three, a 
library call is generated. 

Phase MK 

Phase MK identifies functions which are to 
be coded in-line, and generates, in their 
place, pseudo-code to perform the relevant 
function. This phase appears before the 
normal function processor phase and removes 
all trace of the in-line function. 

The scan of the text is conducted by the 
general SCAN routine, and control is passed 
to the present phase when one of the fol- 
lowing functions is found: 

DIM HBOUND 
LBOUND SIGN 
LENGTH FREE 

Phase ML 

Phase ML scans the source text for generic 
entry name arguments to procedure 
invocations. 
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Such entry names may be floating arith- 
metic built-in functions or programmer- 
supplied procedures with the GENERIC attri- 
bute • When one is found, the correct gen- 
eric family member to be passed is selected 
by this phase , depending on the entry 
description of the invoked procedure* 



Phase MM 



Phase NA 

Phase NA generates pseudo-code for the fol- 
lowing triples: 



For PROCEDURE' and BEGIN* triples a 
Library call is generated to the FREEDSA 
routine. 



Phase MM scans through the source text for 
procedure invocations by a CALL statement, 
or for procedure or library routine invoca- 
tions by a function reference. 

Procedure invocations are replaced by an 
external standard calling sequence f and 
library routine invocations are replaced by 
an external or internal standard calling 
sequence as appropriate (see Section 4). 

If a CALL is accompanied by a TASK, 
EVENT, or PRIORITY option, library module 
1HETSA is loaded rather than IHESA, and the 
parameter list is modified to include the 
addresses of the TASK and EVENT variables 
and the relative PRIORITY. 



Phase MP 

Phase MP reorders the BUY and SELL state- 
ments involved in obtaining Variable Data 
Areas CVDAs) for adjustable length strings 
or temporaries, which were created by Phase 
GK. On entering this phase, the BUY tri- 
ples precede the code compiled to evaluate 
the length of storage required for the VDA. 
This evaluation code is included between 
further BUYS and BUY triples, which them- 
selves are between the BUY triple being 
considered and its associated SELL triple* 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. Since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status . 

Phase MS 

Phase MS scans the source text for 
references to subscripted array elements. 

If references are found, pseudo-code is 
generated to calculate the offset of the 
subscripted element in relation to the ori- 
gin of the array. If necessary, further 
pseudo-code is generated to check the sub- 
script range. 

Optimization of constant subscript eval- 
uation is carried out on arrays having sub- 
scripts which are integer constants, and 
for which the corresponding dope vector 
multipliers are constant. This applies to 
arrays with fixed-length elements. 



For RETURN triples a library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 
which case code is first generated to 
assign the result to the target field, and 
then the library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 



GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as one- 
instruction branches. 

GOLN triples are compiled into one- 
instruction branches to the compiler label 
number in operand 2 of the triple. 

A GQOB (Go Out Of Block) triple is a 
branch to a label variable, possibly sub- 
scripted, or to a label in a higher block 
than the current one (a branch to a lower 
block is invalid). A call is generated to 
a library epilogue routine, pointing at a 
double-word slot containing the address of 
the label and the Pseudo-Register Vector 
(PRV) offset (for a label constant), or the 
invocation count (for a label variable) . 

STOP and EXIT statements are implemented 
simply by invocation of the appropriate 
library routine. 

For IF triples, if the second operand is 
an identifier, or the result of an expres- 
sion which is not a comparison, code is 
generated to convert it to a BIT string, if 
necessary. This BIT string is compared to 
zero, either in-line, or by a call to the 
library. 

The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the com- 
parison specified in the IF statement. 
This mask is put into a generated instruc- 
tion to branch if the condition is not 
satisfied, i.e., either to the ELSE clause 
or to the next statement. 
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For ON triples , code is generated to set 
flag bits and update the ON-unit address in 
the double-word ON slot in the DSA. 



For S IGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
library error routine is called. 



REVERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 



Phase NG 

Phase NG generates the calling sequences to 
the library for DELAY and DISPLAY and WAIT 
statements. 



It generates code to call the library 
routines which handle ALLOCATE and FREE 
statements whose arguments are BASED 
variables. 

For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for 
conversion. 

For DISPLAY statements, the message must 
be a CHARACTER string, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the library. 

For WAIT statements, the parameter list 
is built up in workspace. It consists of 
the address of the scalar expression (con- 
verted to a fixed binary integer) , followed 
by the addresses of the event-names that 
appear in each WAIT statement. If the sca- 
lar expression option does not appear, the 
address of the total number of event-names 
is used. 

For the tasking option WAIT, whose argu- 
ment is an EVENT array, the phase makes a 
4- byte entry in the parameter list, con- 
taining the number of dimensions involved, 
and the address of the EVENT array dope 
vector. If the WAIT statement contains an 
EVENT array and no scalar expression, the 
first byte of the parameter list is set to 
X f FF f . 

For ALLOCATE and FREE statements, with 
based variables as arguments, a parameter 
list is built in workspace before a call is 
made to one of the entry points to IHEWLSP. 
The parameter list is an 8-byte RDV fol- 
lowed by the address of the AREA variable 
from the IN option if present. 

For ALLOCATE, the pointer- variable in 
the SET option is given the value returned 
by IHEWLSP. 



Phase NJ 

Phase NJ and its supporting block, NK, gen- 
erate the calling sequences to the library 
module for the RECORD- oriented input/output 
Statements: DELETE, LOCATE, READ, REWRITE, 
UNLOCK, and WRITE. 

For each of these calls, the information 
contained in the options of the source 
statement is passed by a parameter list, 
constructed as follows: 

DC A(DCLCB) 

DC A (RDV| COUNT* | PNTR* |SDV 3 ) |0 

DC A (EVENT | LABEL 1 *) | 

DC A(SDV.KEYTO|SDV.KEYFROM|SDV.KEY) |0 

DC A(REQUEST_CODES) 

* expr in IGNORE (expr) 

a pntr in READ SET (pntr) 

3 SDV of varying string in READ INTO 

(varying string) 
** compiler label as result of LOCATE 

REQUEST_CODES is a full- word containing 
four control bytes with the following 
meanings ; 

Byte operation code 

00 READ 

04 WRITE 

08 REWRITE 

0C DELETE 

10 LOCATE 

14 UNLOCK 

Byte 1 Group 1 options code 

00 SET 

04 IGNORE 

08 INTO|FROM 

Byte 2 Group 2 options code 
04 KEYTO 
08 NOLOCK 

Byte 3 Group 3 options code 
04 VARY INTO 
08 VARY KEYTO 
0C BOTH 



Note that null arguments in the parame- 
ter list or REQUEST_CODES are indicated by 
zeros. 

Both the parameter list and the REQUEST- 
_CODES word are constructed in STATIC 
storage. However, if the argument of any 
of the options refers to AUTOMATIC, CON- 
TROLLED, or BASED storage, the parameter 
list is moved to the workspace storage for 
the statement? the argument is then pro- 
vided just before the library call is made. 

In the case of the LOCATE statement, the 
phase is responsible for generating code to 
set the pointer variable with the pointer 
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value returned in the first word of the RDV 
by the library. If the BASED variable was 
a structure with a REFER option in an 
extent definition, it is also responsible 
for generating code to initialize the 
extent variable named in the REFER option. 

The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option must be either a file constant or 
file parameter. 

The record dope vector (RDV) is assumed 
to have been constructed by earlier phases, 
except in the case of CONTROLLED or BASED 
variables or CONTROLLED or BASED aggre- 
gates, when the procedure is as follows: 

1. For CONTROLLED or BASED aggregates, 
Phase NJ creates a library call to 
IHESTRA, passing the following argu- 
ments through registers: 



Register 1 
Register 2 
Register 3 



ACD.V) 
A (DVD) 
A (RESULT . RDV . SLOT ) 



2. For CONTROLLED or BASED strings, the 
phase generates code to construct the 
RDV in the workspace storage of the 
statement, using the dope vector of 
the string. 

The IGNORE expression is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 

The EVENT scalar is taken from the EVENT 
option of the statement. 

The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 

The KEY SDV and KEYFROM SDV are derived 
from their respective options. If neces- 
sary, they are converted to character 
strings. 

The PNTR is taken from the SET triple of 
the statement or from the BASED variable of 
the LOCATE triple if no SET triple appears. 

Phase NM 

Phase NM generates the calling sequences to 
the library modules for OPEN, CLOSE, GET, 
and PUT statements. 



OPEN DC A (DCLCB) 

DC A(OCB) 

DC A (TITLE. SDV) 

DC A(IDENT.SDV) 

DC A(IDENT. DED) 

DC A(KEYLENGTH) 

DC A(LINESIZE) 

DC A(PAGESIZE) 

CLOSE DC A (DCLCB) 

DC A(IDENT.SDV) 

DC A(IDENT.DED) 

Null arguments are indicated by zero 
address constants. 

For GET and PUT statements, the library 
call is in three parts. The initializa- 
tion, data transmission (Phase NU), and the 
termination. The initialization call 
requires a parameter list to be constructed 
from the given options. The options are 
checked for legal combinations and the 
arguments examined . 

The parameter list when a file is speci- 
fied is : 

DC A (DCLCB) 

DC A (next statement) 

DC A (binary integer) if SKIP or 
LINE is given. 

For GET and PUT STRING, the argument to 
STRING is checked, and the parameter list 
formed is : 

DC A (SDV of string argument) 

DC A (DED of string argument) 

The termination library call has no 
parameters. As for the initialization, the 
routine used depends on the options given 
in the statement. 



For OPEN and CLOSE statements, a parame- 
ter list is constructed from the options 
given. The options are first checked for 
validity with respect to multiple specifi- 
cations. The arguments on the options are 
checked and converted, if necessary, to the 
correct data type. If no file is specified 
in an OPEN or CLOSE statement, it is 
ignored. The parameter lists are as 
follows: 



Phase NT 

This phase, which is a preprocessor for 
Phase NU, has two functions: 

1. Initialization of a block of scratch 
storage for use by Phase NU 

2. Setting up of INCLUDE matrix and 
library routine entries for edit- 
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directed, STREAM- oriented I/O 
statements 

The phase contains all pseudo-code skel- 
etons used by Phase NU. 4 096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is then 
passed to Phase NU. 

If a flag has been passed from Phase NM f 
indicating the presence of edit- directed 
I/O, a scan of the text is performed. Data 
and format list items encountered during 
the scan are associated as far as possible, 
and a sufficient set of library modules are 
identified for the edit-directed transmis- 
sion specified in the program. The INCLUDE 
matrix is updated and dictionary entries 
are made for the required library format- 
director routines. 



(see Section 4). When a compiler function 
is found, pseudo-code is generated to 
access the operands of the compiler func- 
tions (e.g., string length, array bound), 
and to place the operand in the location 
specified by the TMPD following the func- 
tion. Assignments to compiler pseudo- 
variables are treated in reverse; the 
result from the TMPD following the assign- 
ment is stored in the array bound or string 
dope vector slot specified in the compiler 
pseudo- variable . 

Phase OB also scans the text for BUY, 
SELL, and BUY ASSIGN statements. The tem- 
porary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 
the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 



Phase NU 

Data/format lists in I/O statements produce 
an internal library calling sequence (see 
Section 4) for each data item and format 
item pair, using registers to point at the 
data item, the data item DED, and the FED 
for the format item. 

Iterations of data items, as in array 
input or output, and of format items, are 
achieved by making DO loops out of the 
iterations. 

The data items are transmitted serially, 
with program flow going from an item in the 
data list, to the corresponding format item 
and then to the relevant library I/O 
module. On return from the library module, 
control goes to the code for the next data 
item or, in the case of repeated data 
items, to another iteration of the DO loop. 

Remote format statements are executed in 
a similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 
returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item. However, 
if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 

An R format item referring to a label 
which is not attached to a format statement 
will cause an object time error condition 
to be raised, and the execution to 
terminate - 

Phase OB 

Phase OB scans through the text for compil- 
er functions and compiler pseudo-variables 



Phase OP 

This phase contains the translate and test 
table used by SCAN, and other tables and 
constants for phase OE. A block of scratch 
storage is obtained into which the tables, 
routines, and constants are moved. A 
pointer to the beginning of this area is 
passed to OE in a register. 

Phase OE 

Phase OE translates the following triples 
into pseudo- code: 

• Assignment 

• Multiple source assignment 

• Multiple target assignment 

• ALLOCATE, FREE, BUY, and SELL 

• Special assignment 

In-line code is generated for the fol- 
lowing types of ASSIGNMENT triples: 

1. Floating-point to floating-point 

2. Fixed binary to fixed binary 

3. Fixed decimal to fixed decimal 

4. Numeric field to numeric field, if the 
pictures given for the operands are 
identical 

5. CHARACTER string to CHARACTER string, 
if the operands are fixed length and 
not more than 256 characters 

6. BIT string to BIT string, if the 
operands are aligned and not more than 
2040 bits 
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7. Label to label 

8. File constant to file parameter 

9. POINTER/OFFSET to POINTER/OFFSET 

10. FIXED CHARACTER string to VARYING 

CHARACTER string and VARYING CHARACTER 
string to VARYING CHARACTER string 
provided that: 

• The length of the source operand is 
not greater than 256 bytes 

• The length of the target string is 
not greater than 256 bytes, if the 
maximum length of the source string 
is not known. 

• For FIXED CHARACTER string to VARY- 
ING CHARACTER string the length of 
the FIXED string is not greater than 
256 bytes. 

Library calling sequences are compiled 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 
string codes not compiled in-line. 

After checking both AREA operands, AREA 
assignments are performed by the library. 

All other assignment triples are trans- 
lated into the CONV pseudo-code macro. 

If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for proces- 
sing by the constant conversion phase, and 
the assignment is translated assuming the 
target type. 

MULTIPLE ASSIGNMENT triples produce the 
same code as for single assignment, except 
that the registers used by the operand con- 
cerned must not be changed or dropped. 

Library calling sequences are generated 
for ALLOCATE, FREE, BUY, and SELL triples, 
and pseudo-code markers are left in the 
text for insertion of code by Phase QF. 

With SPECIAL ASSIGNMENT triples, if the 
target is a varying or adjustable string, 
storage is obtained if the target is AUTO- 
MATIC, or allocated if the target is CON- 
TROLLED. The assignment is then 
translated. 

Phase OG (PL) 

Phase OG converts to pseudo-code all state- 
ment numbers, statement labels, PROCEDURE, 
BEGIN, PROCEDURE 1 , BEGIN 1 , and end-of- 
program triples. 

The CONVERT pseudo-code macro is 
examined in conjunction with the OPTIMIZA- 



TION parameter and pseudo-code is generated 
in one of three forms: 

1. Code to call the library conversion 
package 

2. Code to perform the conversion 
"in-line" 

3. A modified CONV macro which is passed 
to phase OM or OP for processing. 
In-line conversion phases which are 
not required COM and/or OP) are marked 
unwanted. 

IGN pseudo-code items and JMP triples 
are removed. The amount of temporary work- 
ing space required by each block of program 
is calculated and placed in the workspace 
dictionary entry (see Section 4) . 

The format of the text is converted so 
that a pseudo-code item does not span 
blocks. 

The INCLUDE card matrix is formed for 
all the conversion modules required. 

Phase OM 

Phase OM is called when either optimization 
levels 00 or 01 are specified. This phase 
scans the pseudo-code for the CNVC macros, 
which phase OG has placed into the text as 
28-byte entries containing a transfer vec- 
tor to select the appropriate conversion 
routine within OM, and replaces any such 
macros with in-line code* 

The conversions inserted by phase OM are 
controlled by phase OG. When OPT=0, cer- 
tain of the simpler FIXED DEC to PICTURE, 
PICTURE to FIXED DEC, and FIXED DEC to 
FIXED BIN conversions are passed to OM. 
When OPT=l, the remainder of the feasible 
FIXED DEC to or from PICTURE and FIXED DEC 
to FIXED BIN conversions are passed to OM 
together with FIXED DEC to CHAR 
conversions. 

Certain FIXED DEC to PICTURE conver- 
sions, which phase OG cannot itself effi- 
ciently detect to be uneconomic when per- 
formed in-line, are recognized by phase OM, 
which inserts the calls to the appropriate 
library routines. 

Phase OP 

Phase OP generates in-line code to perform 
BINARY to BIT string, BIT string to BINARY, 
and FLOAT to FIXED BINARY conversions. 

Phase OS 

Phase OS scans through the constant chain 
in the dictionary and converts the con- 
stants to the required internal form. 
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These are then stored in a constants pool, 
and the offset of each constant from the 
start of the pool is saved in the dic- 
tionary entry for that constant. 

To permit the correct alignment of the 
constant pool f three scans are made of the 
constant chain; first to convert all double 
word constants , secondly to convert all 
single word constants, and thirdly to con- 
vert all unaligned constants. 

In the first two scans only one pool 
entry is made for constants having the same 
internal form and value. 

A fourth scan is made of the constant 
chain and all constants required to ini- 
tialize static are converted, but instead 
of inserting these constants in the con- 
stant pool, they are moved into special 
dictionary entries constructed by Phase LB. 



STORAGE ALLOCATION LOGICAL PHASE 

The storage allocation phase ensures that 
every item requiring storage in a PL/I 
object program obtains a unique location of 
the correct size, located on the correct 
boundary. Items requiring storage include 
PL/I source program variables, dope vec- 
tors, dope vector skeletons, temporary 
variables, work areas, data descriptors, 
symbol tables, addressing slots, register 
save areas, flag areas, etc. Storage loca- 
tions are allocated to items in order of 
descending alignment requirement to avoid 
wasting storage by padding to the required 
alignment. 

The storage allocation phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must be 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 

Since all AUTOMATIC and CONTROLLED 
storage is obtained dynamically at object 
time, the Storage Allocation Phase 
generates code to relocate dope vectors 
when the allocated storage address is 
known. 

Phase PA 

The purpose of phase PA is to determine the 
eligibility of the automatic chains of any 
block for STATIC DSAs. Any chain not so 



far found to be ineligible for a STATIC DSA 
is scanned to determine the DSA size. 
STATIC DSAs are generated for any chains of 
less than 512 bytes. 

Dictionary entries are generated for 
STATIC DSAs. This phase also acts as a 
spill area for routines used in phases PD 
and PH. 



Phase PD 

Phase PD is the first STATIC storage allo- 
cation phase. It scans the text, and for 
every second file statement encountered 
sets up a pointer in the associated dic- 
tionary which points to the second file 
statement. It then sorts the STATIC chain 
so that the dictionary entries occur in the 
order in which the storage for their items 
will be allocated. 

Storage is allocated for simple non- 
structured, non-external variables, RDVs, 
DEDs, SAVE/RESTORE entries, and the BCD of 
entry labels and label constants. Storage 
is also allocated for dope vectors for all 
items in the STATIC chain requiring them, 
with the exception of EXTERNAL items. A 
full word address slot is allocated in 
STATIC for each STATIC DSA. 

The external section of the sorted 
STATIC chain is scanned and a 4-byte 
addressing slot is allocated for each entry 
label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 

The constants chain is scanned and the 
offsets of the storage and dope vectors for 
constants in the constants pool are 
relocated. 

The current size of the STATIC INTERNAL 
control section is computed and the result 
is passed via the communications region to 
the next phase. 

Phase PH 

Phase PH is the second STATIC storage allo- 
cation phase. It scans the AUTOMATIC chain 
and CONTROLLED chain for all items requir- 
ing a dope vector. 

For each such item a skeleton dope vec- 
tor dictionary entry is generated in the 
STATIC chain (see Section 4). This dic- 
tionary entry contains a bit pattern equal 
in length to that of the dope vector and 
containing all those values which are known 
at compilation time. In particular, it 
contains as much of the relative virtual 
origin as is known at compilation time, the 
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constant bounds and string lengths , and the 
constant multipliers. 



Skeleton dope vectors are not put into 
the STATIC chain for AUTOMATIC variables in 
any block whose DSA is in STATIC, except 
when the variable dimensions bit is set to 
one. 



If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four- byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure.) If the item is a dynamic 
temporary (temporary type 2) or a CON- 
TROLLED scalar string, the virtual origin 
slot is relocated by the length of the dope 
vector . 

In all cases the skeleton dope vector 
dictionary entry is pointed at by the dic- 
tionary entry of the associated item. 

The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, space is allocated in 
the STATIC INTERNAL control section accord- 
ing to the assembled length of the argument 
list. The offset of each skeleton argument 
list is stored in the 0FFSET1 slot of the 
dictionary entry. 

RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes ; DVD entries are 
allocated the specified length. 

A scan is made of the section of the 
STATIC chain containing STATIC INTERNAL 
arrays. Storage is allocated for each 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector, then storage is allo- 
cated for the secondary dope vector. The 
number of elements is calculated for INI- 
TIAL arrays and stored in the associated 
INITIAL dictionary entry. 

The section of the STATIC chain contain- 
ing STATIC INTERNAL structures is scanned. 
Storage is allocated for each structure 
according to the size of the structure 
(computed by Phase JK) , and this storage is 
placed on the correct boundary on informa- 
tion supplied by Phase JK. The structure 
member chain for each structure is scanned 
and the relative offset of each member is 
relocated to the start of the STATIC 
INTERNAL control section. Further, on the 
structure member scan, secondary dope vec- 
tors are allocated when required, and the 
number of elements is calculated for INI- 
TIAL arrays. 



Phase PL 

Phase PL scans the STATIC, AUTOMATIC, CON- 
TROLLED, structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors . 



When a variable is found which requires 
a symbol table, the variable is joined onto 
the chain of symbol variables for the par- 
ticular block. A symbol table dictionary 
entry is created for the variable (see Sec- 
tion 4), and a chain is set up to and from 
the dictionary entry for the variable. The 
new dictionary entry is joined onto the 
STATIC chain. 



The size of the symbol table is calcu- 
lated, and its offset from the start of the 
STATIC control section is stored in the 
symbol table dictionary entry. Throughout 
the allocation of STATIC storage a location 
counter is maintained to contain the next 
free location in STATIC; this counter is 
increased appropriately. 



All symbol variables require a DED and a 
branch is taken to the routine which allo- 
cates them. 



When a variable is found which requires 
a DED, it is determined whether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 
data that can be obtained by the combina- 
tion of the attributes FIXED/FLOAT, BINARY/ 
DECIMAL, LONG/SHORT (default precisions 
only) . 

If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there will be only one allocation of 
storage for any one type of standard DED. 
If the DED is not of a standard type, it is 
allocated storage of its own. 

If the variable does not already have a 
symbol table dictionary entry (which con- 
tains space for DED information), a DED 
dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
section is stored in it. A pointer in the 
new entry in the dictionary entry for the 
variable is also set up. 

When all data element descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 
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Phase PP (PO) 

Phase PP extracts all ON condition entries 
and places them at the head of the AUTOMAT- 
IC chain. It then extracts all temporary 
variable dictionary entries from the AUTO- 
MATIC chain and places them in the zone 
following the ON conditions in the chain. 

All dictionary entries which are totally 
independent of any other variable are 
extracted, and also placed in the zone fol- 
lowing the ON conditions. 

The phase then extracts all dictionary 
entries which depend upon some other vari- 
able in containing blocks or in the zones 
already extracted, and places them in the 
next following zone. Dependency includes 
expressions for string lengths, expressions 
for array bounds, expressions for INITIAL 
iteration factors, and defined dependen- 
cies. This is repeated recursively until 
the end of the chain. If some variable 
depends upon itself, a warning message is 
issued. 

A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Section 4). A code- 
byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e. , it does not consist 
entirely of DEFINED items, which do not 
require storage) , and whether or not the 
following zone contains any arrays of VARY- 
ING strings. 

Phase PT 

Phase PT allocates AUTOMATIC storage, scans 
the CONTROLLED chain, and determines the 
size of the largest dope vector. It scans 
the entry type 1 chain, and for each PROCE- 
DURE block or BEGIN block it allocates 
storage for a DSA and compiles code to ini- 
tialize the DSA. 

A two-word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and work- 
space in the DSA is also allocated. 

Two words are allowed for tasking infor- 
mation in the DSA if the TASK option is on 
the external PROCEDURE of the compilation. 

The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items requir- 
ing them. Code is compiled to copy the 
skeleton dope vector, and to relocate the 
address in the dope vector. 

Where there is a block with its DSA in 
STATIC, dope vector initialization is not 
performed for the variables in the first 



region of the AUTOMATIC chain. Address 
slots in dope vectors for variables in the 
remainder of the chain are relocated. 

Storage is allocated for addressing tem- 
poraries type 2 and for addressing con- 
trolled variables, and for the parameters 
chained to the entry type 1. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision 
variables, halfword binary variables, 
CHARACTER strings, and BIT strings, in that 
order. 

The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. For 
arrays of strings with the VARYING attri- 
bute, the secondary dope vector is also 
allocated and code is compiled to initial- 
ize the secondary dope vector. Correctly 
aligned storage is allocated for struc- 
tures. If a structure contains any arrays 
of strings with the VARYING attribute, the 
storage for the secondary dope vector is 
allocated at the end of the structure. 

A pointer is set up in the AUTOMATIC 
chain delimiter to the second file state- 
ment which has been created. 

The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area (VDA) for each 
region. Code is compiled to copy the skel- 
etons into the dope vectors and to relocate 
the addresses in the dope vectors. During 
this pass, any DEFINED items which are to 
be addressed directly have the storage off- 
set and the storage class copied from the 
data item specified as the base identifier. 

Phase QF 

Phase QF, which constructs prologues, scans 
that text which is in pseudo-code form at 
this time with end- of- text block markers 
inserted. 

When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens: 

1. The item is saved if it relates to a 
PROCEDURE statement 

2. The item is omitted if it relates to a 
BEGIN or ON block 

3. The item is passed if it relates to 
neither of the first two conditions. 

When a BEGIN statement is found, a stan- 
dard prologue of simple form is generated, 
and code is inserted from second file sta- 
tements (if there are any) to get the DSA, 
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either dynamically, or in the case of elig- 
ible bottom-level blocks, by using the sup- 
plementary LWS made available at initiali- 
zation time. Code is also inserted to ini- 
tialize the DSA and to allocate and ini- 
tialize any VDAs. 

When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block- If it is an ON 
block, a standard prologue (similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated. This takes account of the 
manner of getting the DSA, the number of 
entry points, the number of entry labels on 
a given entry point, the number of parame- 
ters on each entry point, and whether the 
PROCEDURE is a function. 

Prologue code is generated for AUTOMATIC 
scalar TASK, EVENT or AREA variables, in 
order to perform the initialization 
required when these variables are 
allocated. 

The code generated by the prologue con- 
struction phase is partly in pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special pseudo- 
code items) has the same form as the code 
produced by the Register Allocation Phase 
(see Section 4). 

DSA optimization is performed under cer- 
tain conditions (see Appendix D) . 

At the end of the prologue, the state- 
ment label item saved earlier is inserted 
to mark the apparent entry point. Code is 
produced to effect linkage to BEGIN blocks 
in such a way that general register 15 con- 
tains the address of the entry point, and 
general register 14 contains the address of 
the byte beyond the BEGIN epilogue. 

At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 



of workspace in the DSA of the current 
block. 

Any adjustable bound expressions or 
string length expressions are then 
extracted from the text references, and the 
expressions are placed in-line in the text. 

Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 

Code generated by Phase JK to initialize 
multipliers, etc., is extracted and placed 
in-line, after first loading the variable 
storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 

If the item has no adjustable parame- 
ters, code is generated to increment the 
accumulator by the size calculated at com- 
pilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 

If the item has any arrays of varying 
strings, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 
a parameter to a library routine. A rou- 
tine is then called which extracts the 
library call inserted by pseudo-code and 
places it in-line in the text. 

Code is inserted after the library call 
to initialize the dope vector in workspace 
to point to the allocated storage. Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 

The code generated by phase JK to ini- 
tialize arrays of varying strings, tasks, 
events, and areas is then inserted in the 
output stream. 



Phase QJ 

Phase QJ scans the text for ALLOCATE, FREE, 
and BUY statements. 

On finding an ALLOCATE statement, a rou- 
tine is called which does a ■ look ahead* 
for initialization statements associated 
with the allocated variable, e.g., adjust- 
able array bounds or adjustable string 
lengths, and places the text references of 
each statement in the dictionary entry 
associated with each statement. 

If the allocated item has a dope vector, 
code is generated to move the skeleton dope 
vector generated by Phase PH into a block 



Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. The initialization 
statements are then skipped, and the scan 
continues. The last two steps are also 
performed for LOCATE (based variable) and 
ALLOCATE (based variable) statements. 
Action for a BUY statement is similar to an 
ALLOCATE statement, with the following 
exceptions : 

1. Bound and string length code is in- 
line, bracketed between BUYS and BUY 
statements - there is therefore no 
look ahead 

2. There is no initial value code asso- 
ciated with temporaries 
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A slot in the DSA is updated with the 
pointer to the allocated storage for a 
temporary. 



The action on encountering a FREE state- 
ment is to generate code to load a parame- 
ter register with the pointer to the allo- 
cated storage for the FREE VDA Library call 
inserted by the pseudo-code. 



Phase QU 

Phase QU scans the pseudo-code text in 
search of instructions which have misa- 
ligned operands. (A misaligned operand has 
the UNALIGNED attribute and is not aligned 
on the boundary appropriate to its data 
type) . When such an instruction is found, 
QU inserts a move character CMVC) instruc- 
tion in the pseudo-code text to move the 
operand to or from an aligned workspace 
area, and substitutes the address of this 
workspace for the operand address in the 
original instruction. If the address of a 
misaligned operand is loaded into a regis- 
ter, a note is made of that register. QU 
thereafter treats the instructions which 
refer to it as if they referred to the 
operand itself, by inserting a move 
character instruction, and substituting the 
workspace address for the reference in the 
instruction. 

In handling misaligned operands, phase 
QU uses storage beginning at offset 32 from 
register 9 for its workspace. 

Whenever a load address (LA) instruction 
is found which lies within the calling 
sequence of a library routine and which 
loads the address of a misaligned argument 
of that routine, an aligned workspace 
address is substituted in the instruction, 
and the requisite move character instruc- 
tion is stacked. It is not inserted in the 
output text until the instruction is 
encountered that loads register 15 prior to 
the exit to the library routine, or in the 
case of EDIT-directed I/O routines, until 
the appropriate branch-and-link (BALR) 
instruction is encountered. The stacked 
move character instruction is inserted into 
the output before the exit to the routine 
if the argument in question is an input 
argument to the routine, and after the 
return from the routine if it is an output 
argument. 

Whenever a fixed binary temporary of 
precision < 16 is encountered in the text, 
the dictionary is checked to see if this is 
a member of an argument list (phase GP will 
have set bit) . If it is, the instructions 
referring to it are altered to halfword. 
The displacement in any Load Address refer- 
ring to the temporary is incremented by 2. 



References to halfword binary items are 
replaced by halfword instructions where 
PL/I permits. Where possible and desir- 
able, fullword instructions are used to 
perform calculations, and only LH/STH 
instructions used to access storage. 



Fullword conversion is inserted into the 
library calls marked by phases LS and NG. 

In handling halfword binary items, phase 
QU uses 4 bytes, beginning at offset from 
register 9, for workspace. 



Phase QX 

Phase QX is the 'AGGREGATE LENGTH TABLE" 
printing phase. It is entered only if the 
ATR (attribute list) or XREF (cross 
reference list) options are specified. It 
scans the STATIC, AUTOMATIC, CONTROLLED and 
COBOL chains, and, for each major structure 
or non- structured array that is found, an 
entry is printed in the AGGREGATE length 
table. 

An AGGREGATE LENGTH TABLE entry consists 
of the source program DECLARE statement 
number, the identifier and the length (in 
bytes) of the aggregate. In the case of a 
CONTROLLED non-BASED aggregate no entry is 
printed for the DECLARE statement, but an 
entry is printed for each ALLOCATE for the 
aggregate, the source program ALLOCATE 
statement number being printed in the 
•statement number 1 column. 

Where the length of an aggregate is not 
known at compilation the word "ADJUSTABLE" 
is printed in the 'length in bytes' column 
of the entry for that aggregate. If an 
aggregate is dynamically defined, the word 
"DEFINED" appears in that column. An entry 
for a COBOL mapped structure (i.e., a 
structure which a COBOL record is read into 
or written from), has the word "(COBOL)" 
appended, but such an entry will appear 
only if the structure does not consist 
entirely of one of the following: 

• doubleword data 

• fullword data 

• halfword binary data 

• character string data 

• aligned bit string data 

• a mixture of character string and 
aligned bit string data 

If a COBOL entry does appear, it is 
additional to the entry for the PL/I mapped 
version of the structure. 
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Before printing begins the aggregate 
length table entries are sorted so that the 
identifiers appear in collating sequence 
order. 



REGISTER ALLOCATION LOGICAL PHASE 

The register allocation phase inserts into 
the text the appropriate addressing 
mechanisms for all types of storage, and to 
allocate physical general registers where 
symbolic registers are specified or 
required as base registers. 

This phase comprises two physical 
phases, each with a specific function. The 
first, Phase RA r processes the addressing 
mechanisms, while the second phase. Phase 
RF, allocates the physical registers. 

An additional phase RD is called in 
between RA and RF when the optimization 
option is 2 or greater. This phase 
attempts to optimize the storing and load- 
ing of registers in use over compiler 
generated branches. 

Phase RA (RB g RC) 

Phase RA scans the text for dictionary 
references , the beginnings and ends of PRO- 
CEDURE and BEGIN blocks, and the starting 
points of the original PL/I statements. 

A dictionary reference, when found, is 
decoded into a word-aligned dictionary 
address and a code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 
offset and base is then calculated. 

If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions are generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
in a 'step table.' On completion, the 
table is scanned backwards to determine 
whether an intermediate result has been 
previously calculated. The steps which 
have not been previously calculated are 
then assembled into the pseudo-code. 

The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address- The extra "insertion file" is 
placed in the prologue of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a parameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 



address, or if the reference itself is in 
the prologue. 

If no addressing code is generated, a 
special item is put in text to tell phase 
RF what base to use. 

All relevant information for PROCEDURE 
and BEGIN blocks is stacked and unstacked 
at the start and end of the blocks 
respectively . 

At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the library error 
package is generated, and the error marker 
removed. 

If the STMT option has been specified, 
code is generated at the start of each PL/I 
statement to keep the statement number slot 
in the current DSA up to date. 



Phase RD 

Phase RD examines all EQUs and determines 
their uses. A table is set up in scratch 
text blocks containing a four- byte slot for 
each EQU. The number of text blocks 
required is calculated from the value in 
the ZMAXEQ field in the communications 
region. The first text block, containing 
the slots for the first N-4 EQU values 
(where N = text block size), is locked into 
main storage so that these slots can be 
accessed by direct addressing. 

The other slots are accessed via their 
text references, and their text blocks are 
brought into storage as needed, by the com- 
piler control routines. A dictionary of 
text block numbers for each range of EQU 
values is kept in the phase. This allows 
for a maximum of 64 text blocks, i.e., un- 
der the smallest SIZE parameter a maximum 
of 16K EQU values are allowed. 

The table is built up during a pass of 
the program text. At the end of the text 
pass the table is scanned. Any EQU which 
is not used is deleted. Any EQU which is 
either before the first use or used more 
than once is flagged by setting the first 
bit of the EQU value on. During this scan 
of the table, the current table text block 
is locked into storage and released when 
the scan is completed for the block. 

Phase RF (RG,RH) 

Phase RF scans the text for register occur- 
rences, implicit and explicit, and the 
start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
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stacked, and is later unstacked at the 
corresponding end. 

Registers are classified as assigned, 
symbolic, or base. 

Assigned registers require the explicit- 
ly mentioned register to be used. If that 
register is not free it is stored. Symbol- 
ic registers may occupy any register in the 
range 1 through 8. An even-odd pair may be 
requested. Base registers may occupy any 
of registers 1 through 8. 

When a register is requested, a table of 
the contents of registers is scanned, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look- ahead is performed to determine which 
register it is most profitable to free. 

If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 

At a BALR (Branch and Link) instruction 
it is ensured that all the necessary param- 
eter registers are in physical registers, 
and not in storage. 

No flow trace is carried out by the com- 
piler. Therefore, the register status is 
made zero at branch- in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved. 

Any coded addressing instructions are 
expanded when found in-line. At a specific 
"insertion point" in a prologue, any 
addressing instructions in the "insertion 
file" are brought in and expanded. 



FINAL ASSEMBLY LOGICAL PHASE 



generated for external names and pseudo- 
registers. An object listing of the code 
generated by the compiler is produced if 
the option has been specified by the source 
programmer . 



Phase TF 

Phase TF scans the text, assigns offsets to 
compiler and statement labels, and deter- 
mines the code required for instructions 
which reference labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 

Phase TJ 

Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 

A location counter is maintained for 
assembled code, and offsets are assigned to 
labels. 

The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for instruc- 
tions to reference labels is also deter- 
mined, while attempting to reduce this from 
the amount estimated by the first assembly 
pass. 

This phase also attempts to reduce the 
number of Move (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations. 

Phase TO (TQ) 

Phase TO sets the four byte slot ZPRNAM, in 
the communication region, to contain the 
first four characters of the first entry 
label of the external procedure, for the 
purpose of object deck serialization. 

Phase TO also produces ESD cards for the 
compiled program. It first makes up six 
standard entries for: 



The final assembly phase converts the 
pseudo-code output of the register alloca- 
tion phase into machine code, the principal 
functions being the substitution of machine 
operation codes for pseudo-code operations, 
and the replacement of PL/I and compiler 
inserted symbolic labels by offset values. 

Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source program, parameter 
lists, skeleton dope vectors, symbol 
tables, etc. ESD and RLD cards are 



1. Program Control Section (CSECT) (SD 
type) allowing room for the compiler 
subroutines if these are present 

2. STATIC internal CSECT (SD type) 

3. Invocation count (PR type) 

4. Entry points to library routines, IHE- 
SADA and IHESADB (ER type) 

5. IHEQERR (PR) 

6. IHEQTIC (PR). 
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If the external procedure has the MAIN 
option, an entry for a one-word CSECT (SD 
type) is made up. An entry is made for the 
CSECT 1H entry and entries are made up for 
all entry labels in the external procedure 
(LD type} . 



The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 



The external section of the STATIC chain 
is scanned and entries are made up for: 

1. Built-in functions and library func- 
tions (ER type) 

2. Files (ER type) 

3. STATIC external variables (SD type) 

4. External entry names (ER type) 

5. Programmer ON condition names (SD 
type) . 

The CONTROLLED chain is scanned and an 
entry is made up for each CONTROLLED vari- 
able and task name (PR type) . 

The size of the program control section 
is incremented to include the compiler 
subroutines. 

All STATIC DSAs are put into the STATIC 
INTERNAL control section, their combined 
sizes being allowed for when the size of 
the CSECT is calculated. 

Module TQ is used to produce a list of 
library conversion routines required for 
execution of the program. ER type entries 
are made up for each name in the list. 

Phase TT 

Phase TT scans the text and maintains a 
location counter for assembled code. 

Loader text (TXT) and relocation direc- 
tory (RLD) cards for requested combinations 
of load and punch files are generated. 

Nested procedures are unnested at object 
time by suitable manipulation of the loca- 
tion counter. The offset of each procedure 
from the start of text is left in the PRO- 
CEDURE entry type 1. 

Compiler labels are numbered for use by 
the object listing phase, and trace infor- 
mation is set up at entry points. Phase TT 
also generates the text for the compiler 
subroutines. These subroutines are put out 
in one of the following combinations: 



1. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 
STATIC PROLOGUE subroutine 

2. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 

3. EPILOGUE subroutine 
STATIC PROLOGUE subroutine 

Phase UA 

Phase UA generates text for the static 
internal CSECT; initializes a CSECT for 
each static external variable; and, option- 
ally (if the LIST option is present), lists 
all the text produced for the static 
internal CSECT and provides suitable 
comments . 

The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file attri- 
butes, label variable BCDs , and DEDs for 
temporaries . Simple variables found on 
this scan are used, together with the 
labels, to mark the start of the character 
string section of the chain. 

The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and library 
functions, programmer-defined ON-condition 
names, external files, and label constants. 
Text is made up for the constants pool. 

The third scan of the STATIC chain 
starts at the point left by the previous 
scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 

Phase UA makes up RLD cards for the 
address slots for STATIC DSA's and for the 
address slot of the start of the epilogue 
subroutine, if generated. 

Text cards are output to initialize all 
AREA'S, EVENT'S, and TASK f s. Arrays of 
AREA'S, will have a text card for each 
element. 

Phase UP 

Phase UD generates RLD and TXT cards to set 
up dope vectors at link-edit and load time. 

TXT cards are generated for each STATIC 
DSA, containing its length, which is found 
in the STATIC DSA entry. 

TXT and RLD cards are generated to set 
up the dope vectors for structured items 
and any non- structured items appearing in 
the AUTOMATIC chains. The TXT cards are 
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derived from the skeleton dope vector 
entries. The RLD cards are generated for 
each virtual origin slot. 

When the last STATIC DSA has been pro- 
cessed control is released from phase UD. 

Phase UE 

Phase UE initializes those items on the 
STATIC chain not processed by Phase UA. 

The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables . 

The second scan starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 

The third scan corresponds in extent to 
the third scan in Phase UA, but generates 
text for arrays, and simple and interleaved 
structures. At the end of this scan, a test 
is made to determine whether the external 
procedure of the program has the MAIN 
option. If so, a one-word CSECT (IHEMAIN) 
is made up, to contain the address of the 
principal entry point to the compilation. 

The phase then executes its final scan, 
which extends over the external section of 
the chain, to initialize a CSECT for each 
external variable or external file. 

Finally, any incomplete text and RLD 
cards are punched out, and an END card is 
produced for the compiled program. If the 
OBJNM parameter is present for batch compi- 
lation, phase UD punches a NAME card to 
follow the END card. 

Phase UF (UH) 



Phase UF scans the text, and lists, in 
assembly language format, machine instruc- 
tions compiled for the source program. It 
inserts comments in the listing for state- 
ment numbers, statement labels, entry 
points, prologues, and procedure bases. 

Phase UF contains module UH which 
generates NAME from a dictionary reference. 
UF also lists the text for the compiler 
subroutine. This is done by releasing UH 
and loading module UI which performs this 
function. Upon termination of this phase 
module UI passes control to phase XA. 



ERROR EDITOR LOGICAL PHASE 

The error editor phase is entered at the 
end of all compilations. The first phase, 
phase XA, examines the dictionary and 
determines whether there are any messages 



to be printed out. If there are none, this 
phase terminates the compilation. If there 
are diagnostic messages to be printed out, 
phase XB is entered. Phase XC is then 
entered and this, together with phase XA, 
causes additional modules (XF, and blocks 
XG to YY> to be entered. These modules 
process the error dictionary entries and 
print out the appropriate messages. 

Phase XA 

Phase XA examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no diagnostic messages to be 
printed, this phase prints out a completion 
message and completes the compilation. If 
diagnostic messages are required, phase XC 
and the message address block XF are 
called. 

The error editor then scans down the 
error message chains and marks each error 
dictionary entry with an indication of 
where the associated message is to be 
found. This information is obtained from a 
table in module XF. 

The text of all error messages is kept 
in modules XG through YY. The messages are 
ordered, by severity, within these modules. 
Module XA will have listed those modules 
which contain messages required for a par- 
ticular compilation. Module XC loads and 
releases these modules, one at a time, and 
extracts the required messages. Having 
loaded a particular module, the phase scans 
down the associated error message chain in 
the dictionary for error entries associated 
with the module. It accesses the error 
message text and scans it. 

The message to be printed is built up in 
a print buffer in internal compiler code. 
This involves a translation from EBCDIC 
mode, which is used for the message text 
skeleton. The message is completed by the 
insertion of a statement number, an identi- 
fier, or a numeric value as specified by 
the message dictionary entry. The message 
is segmented, where necessary, to avoid 
spilling over a print line, translated to 
external code, and finally printed out. 

When all error message dictionary 
entries have been processed, module XB 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation. 

Note : This routine for the handling of 
diagnostic messages is completely separate 
from, and should not be confused with, 
module XZ, which is responsible for produc- 
ing conversational diagnostic messages at 
the user's terminal. 
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SECTION 3: 



PROGRAM ORGANIZATION 



This section provides a complete guide to 
the compiler logic, in the form of flow- 
charts and associated tables and routine 
directories, arranged in phase order. 

Flowcharts 



The compiler flowcharts are presented at 
three levels of detail — overall, logical 
phase, and physical phase. The overall 
compiler flowchart (Chart 00) points to the 
logical phase flowcharts (Charts 01 through 
12), each of which appears at tne head of 
the set of physical phase flowcharts to 
which it points. The physical phase flow- 
charts point (by means of identifiers 
placed next to the blocks) to the various 
routines used. Entry points to physical 
phases are labeled. 

The compiler control modules are 
referenced frequently throughout compila- 
tion. The control module flowchart (AA) 
indicates, to the right of each block, the 
control module being referenced to perform 
the function described. 



contained in the phase, and states their 
function. 



In some cases, a physical phase com- 
prises more than one module; this means 
that routines contained in different 
modules may be listed together in one rou- 
tine directory. To provide a cross- 
reference to the compiler listings, the 
following convention has been adopted: If 
a routine is contained in a module whose 
label is not identical to that of the phase 
under discussion, the label of the contain- 
ing module is inserted in parentheses after 
the routine name in the directory. 

In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
"Subroutines Used" column. The routine 
will not then appear in the routine direc- 
tory for the phase under discussion, but 
will be found in the routine directory for 
the containing phase. 



Flowchart conventions and USASI symbols 
are described immediately preceding the 
flowcharts. 

Tables and Routine Directories 



For each physical phase, a table is pro- 
vided which lists the operations performed, 
identifies the routines and subroutines 



Chart and Table Identification 

Identification of tables and physical phase 
flowcharts is based on the phase label. 
Individual modules within the compiler are 
named IEMTXX, where XX stands for two 
alphabetic characters. All references to 
these modules, in the flowcharts and 
throughout this manual, have been limited 
to the last two characters. 
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CONTROL PHASE TABLES 

Table AA. Module AA Compiler Resident Control Phase (Part 1 of 2) 



Statement or Operation Type 



Main Processing 
Routine 



-+■ 



Routine Called 



Initializes the compiler 

Parameters passed : General register 1 points 



ZINIT 



LOADW, ABORT 



at the passed parameters 

Entry to TSS/36 : XTRTM, REDTIM f CALL f SIR 



Deletes a list of loaded phases 

Parameters passed ; PARI — address of list of 



RELESE 



ZUERR, ABORT 



phases to be deleted 
Entry to TSS : DELETE 



Deletes a list of loaded phases and passes 
control to either the next requested phase or 
the next named phase 

Parameters passed : PARI — address of list of 



RLSCTL 



phases to be deleted; PAR2 — address of name 

of phase to which control is to be given, or 

zero 

Parameters returned : PARI — load point of new 



Module AD if inter- 
phase dumping is re- 
quired; Module AE if 
it is end of read-in 
phase; ZUERR f ABORT 



phase 

Entry to TSS/360 : DELETE, LOAD(EPLOC) f CALL 



J 

Loads the required phase and returns control to 
the caller. The phase may be loaded again 

Parameters passed : PARI — address of name of 



LOADX 



+— 

ZUERR, ABORT 



phase to be loaded 

Parameters returned : PARI — load point of 



phase 

Entry to TSS/360 : LOAD(EPLOC) 



Marks phases as "wanted* and 'not wanted* 
Parameters passed : PARI — address of list of 



REQEST 



+ 



ZUERR, ABORT 



phase names to be marked 'wanted;' PAR2 — 
address of list of phase names to be marked 
"not wanted* 
Entry to TSS/360 : None 



Puts a record out to SYSLIN 

Paramet ers pass ed : PARI — address of output 



ZULF 



LFERRX 



record 

Entry to TSS/360 : PUT LOCATE (VSAM) 



Deletes currently called phases and passes 
control to the error editor 

Entry to TSS/360 : LOAD(EPLOC) if dump option 



ZABORT, ABORT 



specified 

Calls module AK to perform finalization 

Entry to TSS/360 : DELETE, CALL 



+_ 4 

Module AD if dump op- 
tion specified; RLSCTL 



Module AK 
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Table AA. Module AA Compiler Resident Control Phase (Part 2 of 2) 



T T 

Main Processing 
Routine 



Statement or Operation Type 



[Handles all program checks 

I 

| Paramet ers pass ed : ARINT holds address of rou- 

|tine wanting to handle interrupt. ARMASK holds 

(mask indicating which interrupts it is desired 

[to handle 

1 Entry to TSS/360 : None 

L . . 



PIH 



Routine Called 
ZUERR 



Table AA1. Module AA Routine/Subroutine Directory 

I T ' ' ' ' ' ' ' 

| Routine/Subroutine | Function 

j. + -I 

| Deletes currently loaded phases, passes control to error editor. 

| Enters message "REFERENCED BLOCK NOT IN USE" , then terminates 
| compilation. 

[Takes dictionary reference and points at relevant slot in dictionary j 
| control block area (DSLOTS) . 

[Takes text reference and points at relevant slot in text block con- 
jtrol area (TSLOTS) . 

[Marks error on SYSLIN data set. 

[Loads required phase and returns control to caller. The phase may 
| be loaded again. 

| Loads required phase and returns control to caller. 

j Handles all program checks. 

[Prints record on PLILIST data set. Pagination (paging action) is 
| performed automatically. 

| Releases all loaded phases. 

| Marks phases as 'wanted 1 or "not wanted.' 

[Releases all loaded phases and passes control to next required or 
[named phase. 

[Deletes currently loaded phases and passes control to error editor. 

j Picks up the completion code for the compilation and returns control j 
| to ZINT to continue the batch, or to the operating system at the end| 
| of a single or batch compilation. 

[Initializes the compiler. 

Puts record out to PLILOAD data set. 



[ABORT 
[BLKERR 

[CONSLD 

( CONSLT 

[LFERRX 
| LOADX 

[LOADW 

[PIH 

|PLERRX 

[RELESE 
| REQEST 
[RLSCTL 

| ZABORT 
| ZEND 

| ZINIT 

I 

ZULF 
L 



1 



± . . 



. J 
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Table AB. Module AB Compiler Control Initialization 

r . T . — . . — T 

Main Processing 
Statement or Operation Type | Routine 



Routine Called 



Prints initial heading and performs scan of 
option list. Default options are taken where 
necessary 

Parameters passed : General register 1 points 
to option list passed at invocation time 
Entry to TSS/36 : EBCDTIME PUT LOCATE (VSAM) 



OPTPROC 



None 



h 



--+ 



h 



Makes the initial space allocation for text 
and dictionary blocks. Sets up communication 
region 

Entry to TSS/360 : G ETM A IN 



OPENR 



None 



Loads intermediate file writer (Module AC). 
Sets buffer sizes for PLIMAC and opens the 
data set 

Entry to TSS/36 : LOAD (EP.LOC) f OPEN 



NODUMP 



ZUPL CAA) 



H 



Prints out list of options for this 
compilation 

Entry to TSS/360 : None 



NDMP 



ZUPL CAA) 



Reads first card and stores. Uses as heading 
if required 



RDCD 



~+ 



ZURD f ZUERR, ZUPL 
(all in AA) 



h 



Return to pre-initializer in IEMTAA 



ABOUT 
LODCNTL 



None 



Loads dictionary handling control routines in 
IEMTAL. 

Entry to TSS/360 : LOAD 



None 



Table AB1. Module AB Routine/Subroutine Directory 



j Routine/Subroutine j Function 

I. + ._- _. _ ._ . . H 

[ABOUT ...-.--- 

I 

| NDMP 

I 

j NODUMP 

I 

| OPENR 



I 

| OPTPROC 

I 

| RDCD 



[Returns control to pre-initializer in Module AA. 

[Prints lists of options for current compilation. 

[Loads intermediate file writer module AC. Opens PLIMAC data set. 

j Makes initial space allocation for text and dictionary blocks. Setsj 
j up communications region. 

[Prints initial heading and performs scan of option list. 

[Reads first card. 

.j. . .. . , , . . . 
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Table AC. Module AC Compiler Control Intermediate File Control 

| T 

[Main Processing 
| Statement or Operation Type | Routine 

I. 

[Writes a record onto PLIMAC ] IEMAC (None 

I 

[ Parameters passed : PARI — address of output 
(record; PAR2 — length of record 
[ Entry to TSS/36 : PUT LOCATE (VI SAM) 



Routine Called 



[Link to file switching routine (Module AG) 

1 

| Entry to TSS/36 : CALL 

L 



ENDED 



None 



Table AD. Module AD Compiler Control Interphase Dumping 



"T T" 

[Main Processing | 
| Routine j 
+- 



Statement or Operation Type 



Routine Used 



j. 

[Debugging aids- This routine contains a dump- | IEMAD 
| ing program which is invoked by use of the DUMP| 
| opti on j 

L . . . . X_ 



[ZDRFAB, ZTXTAB r ZUPL j 

| (all in AA), j 

| DUMP | 

-X 1 



Table AD1. Module AD Routine/Subroutine Directory 



Function 



| Routine/ Subroutine | 

l + — ^ 

I DUMP [Converts contents of specified area of main storage to hexadecimal, | 

| [prints the result. j 

L_ X J 



Table AE. Module AE Compiler Control Clean-Up Phase 
r T _ 



Statement or Operation Type 



k 

[Input and intermediate file control. Current 
| input file is closed and AC is deleted if 
| present 

i 

[ Entry to TSS/360 : 

| DELETE 

L . 



Main Processing 

Routine 



Routine Called 



Module AC 



None 



CLOSE (current input file), 



Table AF« 

r — • 



Module AF Compiler Control Options 
Function 



j. + . 

| This module contains no executable instructions; it con- [None 
[tains a table with the default options for the compiler. j 

L . . X 



Subroutines 



Table AG. Module AG Compiler Control Intermediate File Switching 

r _. T 



Function 



j. „ + 

[Switches PLIMAC from an output file to an input file [None 



Subroutines 



[ Entries to TSS/360 : OPEN and CLOSE 

i 



62 



Table AK, Module AK Compiler Control Closing Phase 



I 



Function 




(Closes files, frees scratch core and deletes unwanted 
[phases 

I 

| If batch compiling, scans batch delimiter card for correct 

(syntax and updates completion code. 

I 

( Entries to TSS/36 : XTRM, CLOSE, REDTIM, DELETE, and 

(FREEMAIN 

L . . . — . . 



Table AL. Module AL Dictionary Phase (Part 1 of 4) 

r ■ ' T' • — 

Main Processing 
Statement or Operation Type 



h 



Routine 



-+• 



Routine Called 



Releases scratch storage allocated by ZUGC 
Parameters passed ; PARI — a count of the 



ZURC 



ZUERR, ABORT 



number of entries to ZUGC to be released 
Entry to TSS/360 ; FREEMAIN if storage being 



h 



replaced is outside the guaranteed 4K block 



Inserts diagnostic message in the dictionary 
and, if required, calls the conversational 
diagnostic outp utter (XZ> 

Parameters passed ; PARS — numeric parameter 
(if any) ; PAR6 — message number; PAR? — 
address of text (if any) or dictionary 
reference (if any) ; PARS — length of text (if 
any) 
Entry to TSS/360 ; CALL 



ZUERR 



ZDRFAB, ZDICRF, ZDICAB, 
Module XZ 



Takes a dictionary reference and points at the 
relevant slot in the dictionary block control 
area (DSLOTS) 

Parameters passed ; PARI — dictionary 



CONSLD 



None 






reference 

Parameters returned ; Address of slot in GRA 

Entry to TSS/360 ; None 



Takes a text reference and points at the rele- 
vant slot in the text block control area 
(TSLOTS) 

Parameters passed ; PARI — text reference 
Parameters returned; Address of slot in GRA 



+- 



C0NSLT 



h 



Entry to TSS/360 ; None 



Allocates space for a text block 

Parameters passed ; None 

Parameters returned; Address of block in GRO 



TRYMRT 



ZUPL, ABORT 



Entry to TSS/360 ; GETMAIN (VC) if storage 



h 



available. 



Allocates space for a dictionary block 



Parameters passed ; 



TRYMRD 



ZUPL, ABORT 



None 

Parameters returned ; Address of block in GRO 
Entry to TSS/360 ; GETMAIN (VC) if storage 



available. 
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Table AL. Module AL Dictionary Phase (Part 2 of 4) 

r — ■ t 

Main Processing 
Statement or Operation Type 



h 



Routine 



Routine Called 



Reads a record from PLIINPUT 

Parameters passed : PARI — address of input 



ZURD 



area 

Parameters returned; 



PAR2 — record length 



H 



Entry to TSS/360 ; GET MOVE (VI SAM) 



None 



t- 



Puts a record out to PLILIST. Pagination 
(paging action) is performed automatically 

Parameters passed : PARI — address of output 
buffer. PAR3 — address of output buffer con- 
taining page heading (if any) 
Entry to TSS/360 : PUT LOCATE (VISAM) 



ZUPL 



PLERRX 



Finds a new text block. Optionaly chains the 
new block to the current block and changes the 
status of the current block 

Parameters passed : PARI — optionally, a 
reference to the current block. PAR2 — a 
status and chain indicator 
Parameters returned: PARI — reference to new 



ZUTXTC 



block; PAR2 — absolute address of the begin- 
ning of block 
Entry to TSS/360 : None 



Finds the next text block in the chain. 
Optionally, changes the status of the current 
block 



CONSLT, TRYMRT, ZUERR, 
ABORT, BLKERR 



ZCHAIN 



Parameters passed : 



PARI — a reference to the 
current block; PAR2 — a status indicator 
Parameters returned : PARI — reference of the 
next block in the chain. PAR2 — absolute 
address of next block in chain 
Entry to TSS/36 : None 



h 



CONSLT, TRYMRT, BLKERR 



_+ 



Changes the status of the referenced text 
block 

Parameters passed : PARI — a reference to the 
block. PAR2 +3 — required 'status* byte 
Entry to TSS/360 : None 



ZALTER 



h 



CONSLT, BLKERR 



Converts a text reference to an absolute 
address and optionally, does not change status 
of the block 

Parameters passed : PARI — reference to be 



ZTXTAB 



converted and option indicator bit 
Parameters returned: PARI — the absolute 



address 

Entry to TSS/360 : 



None 



I— 

Converts an absolute address to a text 
reference 

Parameters passed : PARI — a text reference 



ZTXTRF 



to the block containing the absolute address; 
PAR2 — the address to be converted 
Parameters returned : PARI — the required 



text reference 
Entry to TSS/360 : 



None 



CONSLT, TRYMRT, BLKERR 



CONSLT, BLKERR, ZUERR, 
ABORT 
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Table AL. Module AL Dictionary Phase (Part 3 of 4) 

r . . . . T 

| Main Processing 
Statement or Operation Type | Routine 



Routine Called 



-H 



Enters message 'REFERENCED BLOCK NOT IN USE' 
into dictionary and then terminates 
compilation 

Entry to TSS/360 : None 



BLKERR 



ZUERR f ABORT 



Supplies storage space for scratch purposes. 
Allocation is made in 512 bytes at a time 

Parameters passed : PARI — a count of the 
number of 512 byte blocks r enquired 
Parameters returned: PARI -— address of the 



ZUGC 



allocated storage 
Entry to TSS/360 : 



None 



TRYMRT, ZUERR, ABORT 



Converts an absolute address to a dictionary 
reference 



ZDABRF 



Parameters passed : PARI 



any reference to 
the block containing the absolute address? 
PAR2 — the absolute address to be converted 
Parameters returned: PARI - — the required 



dictionary reference 
Entry to TSS/360 : None 



Converts a dictionary reference to an absolute 
address 

Parameters passed : PARI — the dictionary 

reference 

Parameters returned : 



CONSLD, ZUERR, ABORT, 
BLKERR 



ZDRFAB 



address 

Entry to TSS/360 : 



PARI — 
None 



the absolute 



Makes an unaligned dictionary entry and 
returns an absolute address 



CONSLD, TRYMRD, BLKERR 



ZNALAB 



Parameters passed : 



to be made; PAR2 — 
Parameters returned 



H 



in dictionary 

block 

Entry to TSS/360 



PARI — address of entry 

length of entry 

PARI — address of entry 

PAR4 — some reference to the 

None 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



Makes an aligned dictionary entry and returns 
an absolute address 



ZDICAB 



Parameters passed : 



to be made; PAR2 
Parameters returned : 



PARI — address of entry 
length of entry 

PARI — address of entry 

in dictionary. PAR4 — sorae reference to the 

block 

Entry to TSS/360 : None 



h 



+- 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 



4- 



Makes an unaligned dictionary entry and 
returns dictionary reference 



ZNALRF 



Parameters passed : 



to be made; PAR2 — 
Parameters returned: 



entry in dictionary 

of the entry 

Entry to TSS/360 : None 



PARI — address of entry 

length of entry 

PARI — reference of 
PAR** — absolute address 



ZDRFAB, ZDABRF, TRYMRD, 
ZUPL, ZUERR, ABORT, 
CONSLD 
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Table AL. Module AL Dictionary Phase (Part 4 of 4) 



h 



Statement or Operation Type 



Main Processing 
Routine 



Routine Called 



Makes an aligned dictionary entry and returns 
a dictionary reference 



Parameters passed ; PARI — address of entry 
to be made; PAR2 - LENGTH OF ENTRY 
Parameters returned : PARI — reference of 

PAR4 — absolute address 



ZDICRF 



I- 



entry in dictionary 

of the entry 

Entry to TSS/360 : None 



ZDRFAB, ZDABRF, TRYMRD # 
ZUPL, ZUERR, ABORT, 
CONSLD 



Builds statement/line number table for use by 
conversational diagnostic routines. 

Parameters passed : VISAM line number 
Entry to TSS/360 : GETMAIN 



STLNBLD 



None 



Table ALL Module AL Routine/Subroutine Directory 



| Routine/Subroutine j 



Function 



TRYMRD 

TRYMRT 

ZALTER 

ZCHAIN 

ZDABRF 

ZDRFAB 

ZDICAB 

ZDICRF 

ZNALRF 

ZNALAB 

ZTXTAB 

ZTXTRF 

ZUERR 

ZURD 

ZUGC 

ZURC 

ZUPL 

ZUTXTC 



Allocates space for a dictionary block. 

Allocates space for a text block. 

Changes status of referenced text block. 

Finds next text block in chain. 

Converts an absolute address to a dictionary reference. 

Converts a dictionary reference to an absolute address. 

Makes an aligned dictionary entry and returns absolute address. 

Makes an aligned dictionary entry and returns dictionary reference. 

Makes unaligned dictionary entry and returns dictionary reference. 

Makes unaligned dictionary entry and returns absolute address. 

Converts text reference to an absolute address. 

Converts absolute address to a text reference. 

Inserts diagnostic message in dictionary. 

Reads a record from PLIINPUT. 

Supplies storage space for scratch purposes. 

Releases scratch storage. 

Puts record out to PLILIST data set. 

Obtains a new text block. 
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Table AM, Module AM Compiler Control Phase Marking 

r ■ ■ * 



Function 



T . T - 

Main Processing | 
Routine 



Routines Used 



,. _ . 

| Marks all non-optional phases and 
jail phases influenced by compiler 
(invocation-time options 



[Module AM 



JREQEST, RLSCTL (both in AA) 



| Obtains *4K of scratch storage 

i 

1 Entry to TSS/360 ; GETMAIN 

L ... 



I 

I 
-X- 
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COMPILE-TIME PROCESSOR TABLES 



Table AS. Phase AS Resident Phase for Compile-time Processing 

r — . . 



Statement or Operation Type 



I 

I— 

| Initializes switches for compile- |ADRP 

| time processor | 

|. + 

(Loads phases for compile-time |ADRP 

| processor | 

|. + 

[Determines whether Phase BC should |ADRP 
| be reloaded | 

L . . ± 



- T T - 

[Main Processing) 
| Routine | 



Subroutines Used 



(None 



-+ 

JLOADX (AA) 

1 



I None 



Table AS1. Phase AS Routine/Subroutine Directory (Part 1 of 2) 

Function 



r T _ 

| Routine/Subroutine | 



ADRP 
BCKUP2 
CHBLK 
CLSBUF 

COMENT 

ENDIVB 
FREVAL 

GETIVB 
GNC 

HASH 

INCTST 

INPUT 

INRD 

NXTTXT 

OUTPTC 

SRHDIC 
STRING 



Initializes switches for compile-time processor. 

Backs up token pointer two places. 

Changes currently busy IVB block status and gets a new block 

Handles calls to close and write out the buffer. Loads and bases 
phase BJ if necessary. 

Scans the limits of a comment, transfers each character into the 
output buffer. 

Closes an IVB chain. 

Releases a chain of IVBs containing a no longer needed value and 
returns chain to free list. 

Removes an IVB from the free chain for use by the calling routine. 

Updates TOKPTR to point to the next character in a particular input 
stream. 

Accepts an EBCDIC identifier as input and outputs an index. The 
index indicates the beginning of the HASH chain with which the iden- 
tifier is associated. 

Determines whether Phase BC needs to be reloaded on return from 
Phase BG. 

Reads in an input record from the source data set or from included 
text. 

Reads records from the included data set. 

Gets a new text block and sets up address slots. 

Outputs a single character into one of the three output media: 
IVB's, text blocks, or external records. 

Searches the dictionary for the presence of a named item. 

Scans the limits of a string constant, transfers each character to 
output . 



68 



Table AS1. Phase AS Routine/Subroutine Directory (Part 2 of 2) 

Function 



r — ■ T" 

| Routine/Subroutine | 



h 



_ + „_ _ „. 4 

(Examines text, character by character recognizing and returning each 
(logical unit of text (called a token). Tokens include identifiers, 
[constants, operators, delimiters, etc. Handles CHAR48 for macro 
J processing. 

I 

(Updates temporary linecount slot. 

I 

(Loads processor phases for the compile-time processor. 



TOKSCN 

UPNEWL 
YAG2 



Table AV. Phase AV Macro Processing Initialization 



_ T . T - 

(Main Processing) 
I Routine 



Statement or Operation Type 



Subroutines Used 



| Initializes communication area for ( INIT 
( compi le-time processing | 

(.. _ 

(Allocates push down stack from 

(scratch storage 

h 



(None 



(INIT 



(None 



- + 

(None 



[Allocates translation tables 
| „. 

(Enters SUBSTR into dictionary 

h 



UNIT 



(INIT 

- + _ 

(INIT 



(None 

- + . 

(None 



(Creates dictionary entries cind 
(values for constants pool 



Table AVI. Phase AV Routine/ Subroutine Directory 



r . T _ 

| Routine/Subroutine | 



Function 



I— 



INIT 

WWN048 

WWOVLP 

WWOBCD 
WWCHNBEG 

WWMOVEIT 

INCLUDE 

LABELS CBC 

GOTO Subroutine 

ACT Package) 

ELSE 



Entry point to the initialization phase. This initializes the com- 
munication region for compile-time processing. 

Allocates the push down stack (to be used by Phases BC and BG) from 
scratch storage. 

Sets up tables to translate external code to EBCDIC; tests the BCD, 
EBCDIC option. 

Enters built-in function SUBSTR into dictionary. 

Creates dictionary entries and values for compile-time constant 
pool. 

Moves Subroutine package into core for use by BC. 

INCLUDE Processor 

LABEL List Processor. 

GOTO Stcitement Processor. 

Active/Deactivate Processor. 

ELSE Clause Processor. 
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Table BC. Phase BC Initial Scan and Translation 



_ T T - 

| Main Processing! 
| Routine 



Statement or Operation Type 



Subroutines Used 



Recognizes statement type 

Scans until next % character 
| 

Processes PROCEDURE statement 



IPH1SCN 



j TOKEN, DELETE 
_ + 

| FINDPC 



IPH1SCN 



IPH1SCN 



| TOKEN, DELETE, IDSRCH, 
(ADDSP (FREVAL, OUTPTC) 



Processes labels attached to 
statement 
| 

Encodes statement into internal 
text 



IPH1SCN 



| IDSRCH 
I 



I PH1SCN 



i 



| PARSE, TOKEN, IDSRCH, ADDSP 
(DELETE, CHECK 



Cleans up after INCLUDE in initial | PH1SCN 
scan | 

I— 



| None 
I 

-+ 

I None 



Begins statement identification 
process 



| PH1SCN 

I 

-X 



Table BC1. Phase BC Routine/Subroutine Directory 



r T _ 

| Routine/Subroutine | 



Function 



|. + 4 

(Obtains the dictionary reference of a constant, entering it into the| 
| dictionary if necessary. 

[Adds a processor- created item to the dictionary. 

| Adds a normal item to the end of the appropriate hash chain and 
| returns the dictionary reference. 

| Processes PROCEDURE statement. 

| Processes assignment statements. 

(Checks back for undefined labels and identifiers not declared within j 
the block. 



(ADCONS 

(ADDSP 
(ADICT 

(ADPROC (BF) 

(ASSIGN 

| CHECK 

(DECLAR (BF) 
| DELETE 

| DO (BE) 
(DONE (BE) 

| FINDPC 

| IDSRCH 

(IF (BE) 

| KYWDSR 

(PARSE (BE) 

L 



| Declare statement processor. 

| Skips over bad text up to the end of a statement, field or 
| procedure. 

(DO statement processor. 

(Checks stack for possible THEN's or ELSE's after statement is 
I completed. 

j Scans source text, character by character, searching for macro per- 
| cent character. 

[Obtains the dictionary reference of an identifier, entering it in 
(the dictionary if necessary. 

| IF statement processor. 

| Checks for single or multiple keywords. 

[Parses and generates interpretive macro code for compile-time 
i expressions. 

L . . J 
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Table BC1. Phase BC Routine/ Subroutine Directory (Part 2 of 2) 

Function 



r T - 

| Routine/Subroutine | 



t + „_ 



JPIF4 

I 

(PH1SCN (BE) 

I 

| RETURN 

I 
ISTB3 



_ ., 



| Provides special handling for end of included text, 

| Main controlling routine for phase, 

[Processes RETURN statement for PROC. 

I Collects labels into label list and identifier statement type on 
first two tokens of statement. 



[STMT (BE) 

i 

TOKEN 



| Diagnoses statement type and builds label list. 

[Returns significant tokens to PK1SCN and writes out diagnostics for 
(tokens in error. 



[Generates an update linecount instruction. 

jl . . . . 



|UPDLIN 
^ 

I Note ; See also BC Subroutine Package in Table AVI. 

L . . . . . .. 



. 1 



Table BG. Phase BG Final Scan and Replacement 



- T .. T . 

| Main Processing ( 
I Routine 



Statement or Operation Type 



I 

I 

h 

| Final scan for replacements 

± 

(Recognition of end of text 
J— 



Subroutines Used 
OUTPUT, TOKSCN, SRHDIC 



IPH2SCN 



-+— 

1PH2SCN 



-+- 

|PH2SCN 

-+— 

IPH2SCN 



| OUTPUT, TOKSCN, SRHDIC 
|. 

[OUTPUT, TOKSCN, SRHDIC 



(Recognition of an identifier 

j. — . . 

(Recognition of macro action 
h 



-+ 

(PH2SCN 

-f — 

(PH2SCN 



[OUTPUT, 



TOKSCN, SRHDIC 
TOKSCN, SRHDIC 



| Recognition of % character 



(Recognition of other characters 



(OUTPUT, 

-+ 

[OUTPUT, 



| Terminates and cleans up INCLUDE 
[handling 



TOKSCN, SRHDIC 
OUTPUT, TOKSCN, SRHDIC 



[PH2SCN 



I 



| _„___. _. . .„+_„ 

(Re-establishes scan at next higher (PH2SCN 
(level text | 



[OUTPUT, TOKSCN, SRHDIC 



I 



| _ . +__„__ 

(Performs replacement on activated (PH2SCN 
( identifiers | 

L . „ _X , 



(OUTPUT, 

1 

_JL 



TOKSCN, SRHDIC 



Table BGl. Phase BG Routine/Subroutine Directory (Part 1 of 2) 

Function 



r T _ 

| Routine/Subroutine | 



h 



(CLOUT (BJ) 

I 

| CONVRT 

I 

I 
(DAEOB 

I 

( DAEOBF 



(Closes output buffer, and writes out record on PLIMAC . 

I 

| Handles conversions between the three data types used in the 

| compile- time processor. 

I 

(Re-establishes scan at next higher level text. 

I 

(Recognizes and processes end of text condition. 

_x . . . . . 
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Table BG1. Phase BG Routine/Subroutine Directory (Part 2 of 2) 

r . . r . . 

| Routine/Subroutine! Function 

h 



DAI DEN 

DAMAC 

DAOTHR 

DAPENT 

DAPRTC 

FUNCTN(BJ) 

GETDIC 

INCONT 

INTPRT (BI) 

OUTPT 

PH2SCN 

POP 

PROINV (BI> 

PUSH 
SYNCH 
TPEEK 
TRAI (BI) 

ZAASIGN (BI) 
ZACOMP (BI) 
ZACONCAT (BI) 
ZACVT (BI) 
ZALGCL (BI) 
ZAPUSH (BI) 
ZARITH (BI) 
ZATRAI (BI) 
ZATRAN (BI) 
ZJSUBS (BJ) 



Recognizes and processes identifier in text. 

Recognizes and processes macro action character. 

Recognizes character and outputs it. 

Handles replacement operation for text identifiers. 

Recognizes % character and recalls Phase BC if appropriate. 

Handles built-in functions. 

Picks up a two- byte dictionary reference from scrubbed text, per- 
forms error checking, resolves indirect references, and returns both 
relative and absolute address. 

INCLUDE control routine. Opens DCB, finds member and sets up 
buffer. 

Interprets the macro code generated by the Phase I scan. 

Handles the output of tokens. 

Scans text blocks. 

Pops the top temporary off the Phase II stack. 

Special entry point to interpreter for invocation of procedures 
found in source program text. 

Pushes next available temporary onto the Phase II stack. 

Synchronizes linecount, closing buffer if necessary. 

Scans for procedure reference argument list left-parenthesis. 

Terminates INCLUDE text handling and frees text blocks containing 
included text. 

Performs identifier assignments for INTPRT. 

Performs all logical comparison operations for INTRPT. 

Performs string concatenations for INTPRT. 

Converts stack items to required type by 'RETURNS' attribute. 

Performs all logical operations for INTPRT. 

Performs stack maintenance for INTPRT. 

Performs all arithmetic operations for INTPRT. 

Handles transfers from included text to including text. 

Performs all transfer operations for INTPRT. 

Built-in function SUBSTR. 
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Table BM. Phase BM Diagnostic Message Determination and Printing 



r ■ *- t — t 

| | Main Processing) 
I Statement or Operation Type | Routine j 
|._ _ _ + „ + ~ 

[Determines whether error messages | XA | None 

I are to be printed | j 

I— 



Subroutines Used 



(Scans error message text skeletons |XA8 
j and prints them out | 



(XA5 0, XA70, XA9 r XA110 , ZUPL 



Table BM1. Phase BM Routine/Stibroutine Directory 



r r~ 

| Routine/Subroutine | 
j. 



Function 



XA 

XAO 

XA01 

XA1 

XA2 

XA*I 

XA7 

XA8 

XA9 (BN) 

XA12A 

XA30 (BN) 

XA32 (BN) 

XA35 (BN) 

XA**0 (BN) 

XA50 (BN) 

XA70 (BN) 

XA90 (BN) 

XA110 (BN) 
ZUPL 



Determines whether error messages are to be printed. 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out messages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES". 

First scan of message chains. 

Scans erior message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on PLILIST data set. 



Table BW. Phase BW Clean-up Phase 



j Statement or Operation Type 

,. 

(Resets all tables and communica- 
|tions region cells to the value 
[required by the compiler proper 

L . . 



(Main Processing | 
| Routine | 



Subroutines Used 



I IEMTBW 



(None 
I 

I 

.jl 
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48-CHARACTER SET PREPROCESSOR TABLE 



Table BX. Phase BX **8-Character Set Preprocessor 

r — „. . — . — . . T __. . 

Main Processing 
Statement or Operation Type 



h 



Routine 



Subroutines Used 



Translates keyword table to intern- 
al code and initializes 

^„___ . .„ „. . 

Reads a record 

|„„_. . „ _ . 

Scans text 



BAOO 



None 



BA1 



ZURD (AA) 



+- 



BA1A 



None 



l.„_„_ . ._„__ 

Handles operators and keywords 

!_„_„__ __ . . 

Replaces operator keywords 

h 



BA5 



None 



BA11 



None 



Replaces comma-dot by serai-colon 
where applicable 



BA20 



None 



h 



Deals with quote marks 

F „. ._ „„ _ 

Maintains parenthesis level count 
h 



BA25 



None 



+- 



BA30 



None 



Replaces period-period by colon 
| __„„ _ _ 

Processes a slash 

h 



BA40 



None 



BA50 



Reads one record ahead in case of 
need 



BA7 



— + 



None 
None 



h 



Restores the situation when a read 
ahead has taken place 



BA8 



None 



I Puts out converted text 



1BA9 



ZUBW 
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READ- IN PHASE TABLES 



Table CA. Module CA Read-In Common Block 1 



I 



Function 



Subroutines 



j. ._. 

[Provides subroutines common to all five 
(passes of the read- in phase 



_. . . .„. ._ H 

[ACONST, DEC1NT, EXP, EXPAND, EXPLST f IDENT, j 
[MVCHAR, OPTOR f SCONST, SINGLE, SQUID | 

--L —. . -. - . . . J 



Table CA1. Module CA Routine/ Subroutine Directory 



j Routine/ Subroutine | 



Function 



| ACONST 
[DEC INT 
1EXP 
[EXPAND 
[EXPLST 

| IDENT 

|MVCHAR 

10PTOR 

[SCONST 
[SINGLE 
[SQUID 



j Checks for a valid arithmetic constant, 

| Checks d€icimal integer • 

(Diagnoses expressions. 

Expands iterations of string constants and picture characters. 

j Checks for a list of expressions separated by commas but enclosed in 
[parentheses. 

(Checks for a valid identifier. 

I Moves text from one address to another. 

[Checks for an operator and replaces the two- byte operators by one- 
|byte codes. 

[Checks for a valid string constant. 

| Diagnoses a single expression in parentheses. 

[Checks for a valid subscripted and qualified identifier. 
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Table CC. Module CC Read-In Common Block 2 
r _ 



Function 



Subroutines 



j. _ .„ 

(Provides subroutines common to all five 
[passes of the read-in phase 

L . . 



[CHAR, CHECK, KEYWD, MESAGE, NONEX, 
[NULINS, OPTEST, PICT, PREC, SOFLOW 

-X . . 



Table CC1. Module CC Routine/Subroutine Directory 



r — . «. T _ 

| Routine/Subroutine | 



Function 



(CHAR 
1 CHECK 
| KEYWD 

I MESAGE 
| NONEX 
I NULINS 
I OPTEST 
(PICT 
|PREC 

I SOFLOW 



Diagnoses the CHARACTER and BIT data attributes. 

(Tests the top entry in the stack. 

Identifies keywords and hands back the replacement character to the 
| caller. 

[Provides a diagnostic message. 

[Checks stack for non-executable statements. 

| Inserts null statement in output text. 

[Tests the output string and moves text to the output. 

[Diagnoses a picture. It uses a TRT table set up for the purpose. 

[Diagnoses the precision, and the attributes and format items which 
[use it. 

j Bumps stack pointer and checks for stack overflow. 



Table CE. Modules CE, CK, CN, and CR Read-In Keyword Block 

r „ . T - 



Function 



Subroutines 



-+- 



|. _ 

[Provides tables of keywords in internal [None 
(code, together with replacement code. | 
[No functional code exists in these modules. j 
[Refer to Section 4 for details of keyword | 
(tables. | 
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Table CI. Phase CI Read-In First Pass 



T — . . T _ 

Main Processing | 
Routine j 



Statement or Operation Type 



h 

[Controls main scan, identifies 

| statements and analyzes some in 

(detail, and calls a subroutine in 

|AL to build statement/line number 

[table. 



Subroutines Used 



H 



RSTART 



[ASSIGN, BADST1, BEGIN, DO, 
[ELSE, BUMP, END, EOP, ERROR, IF, 
| ON, POPLST, PROC, READ, SIGRVT, 
[STAT2, STRING, STLNBLD plus those 
j subroutines contained in modules CA 
[and CC 



Table CI1. Phase CI Routine/Subroutine Directory 



r T _ 

| Routine/Subroutine | 
j. + _ 

[ASSIGN (CG) 
I BADST1 



Function 



[BEGIN (CG) 

[BUMP 

|DO (CG) 
[ELSE (CG) 
| END (CG) 

| ENTRY 
| EOP 

[ERROR (CG) 
[IF (CG) 
| ON (CG) 
| POPLST 

| PROC 

[READ 

| RSTART 

SIGRVT (CG) 
STAT2 (CG) 
[STID 
STRING (CG) 



(Diagnoses an assignment statement. 

j Recovers from failure to recognize a statement type; skips to next 
j semi -col on. 

j Checks the BEGIN statement and makes an entry in the first pass 
i stack. 

[Advances the input Data Pointer (DP), skips blanks, if any, forcing 
[source text to be read into storage as necessary. 

| Checks the DO statements and makes an entry in the first pass stack. 

[Unstacks an IF compound statement. 

[processes three different types of END statements? PROCEDURE-BEGIN? 
| DO; iterative DO. 

[Processes ENTRY statement. 

| Processes end-of -program marker, and returns to compiler control in 
| order to load next pass. 

Handles false starts on possible statements. 

| Scans the IF statement and makes entry in first pass stack. 

I Diagnoses the ON statement and makes entry in first pass stack. 

[Removes prefix options from the text and places them in the 
[dictionary. 

[Scans the PROCEDURE and ENTRY statement and makes an entry in the 
j first p£iss stack. 

[Reads source text into storage, translating it into internal code, 
| except for character strings? removes comments; prints source list- 
ling and prefix options. 



| Controls the first pass scan. 
j dictionary. 



Enters statement labels into the 



[Scans SIGNAL and REVERT statements, 
[Handles all other statements, 
j Statement identifier routine. 
| Scans character strings. 
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Table CL. Phase CL Read- In Second Pass 



Statement or Operation Type 



K + 

| Scans for statements handled in | SCNA 
(this pass, analyzing them in | 
(detail. Skips over other statements) 
I I 

L . J.. 



(Main Processing) 
Routine j 



Subroutines Used 



| BUMP, DELAY, DSPLAY, DO, FREE, 
| GOTO, ITDO, LABEL, PROG, RETURN, 
JTRTSC, plus those subroutines con- 
jtained in modules CA and CC 

_x . 



Table CL1. Phase CL Routine/Subroutine Directory 



r T _ 

| Routine/Subroutine | 



Function 



h 



-+- 



BUMP 

DELAY 
DSPLAY 
DO 
EOP 

FREE 

GOTO 

ITDO 

LABEL 

OPTION 

PROC (CM) 

RETURN 

SCNA 

TRTSC 



Increments the input Data Pointer (DP), skipping over blanks, 
obtaining a new text block if necessary. 

Processes DELAY statements. 

Processes DISPLAY statements. 

Processes DO statements. 

Processes end-of -program marker, and releases control to phase CO or 
CS, or CV (CO and CS are optional phases). 

Processes FREE statements. 

Processes GOTO statements. 

Processes iterative DO statements. 

Diagnoses LABEL attributes. 

Handles OPTIONS attribute on PROCEDURE or ENTRY statements. 

Analyzes PROCEDURE attributes and options, and completes the diagno- 
sis of PROCEDURE and ENTRY statements. 

Processes RETURN statements. 

Main controlling routine of this pass. 

Skips over all other statements. 
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Table CO. 



Phase CO Read-In Third Pass 
r- 



| Statement or Operation Type 

j. 

(Scans for DECLARE, CALL, and 
(ALLOCATE statements. Analyzes 
[syntax of attributes by calling 
( appropriate subroutines 



| Main Processing | 
Routine 



Subroutines Used 



-+- 



H 



I SCAN 2 



(ATTLST, BUMP f CALLOP, DECL, DEFIND, 
| DIMS, ENTRY, ENVMNT, EOP, 
[GENRIC, LABEL, LIKE, USES, IVLIST, 
j and those subroutines contained in 
j modules CA and CC 
_x . _. . . 



Table COl. Phase CO Routine/Subroutine Directory 



r t~ 

| Routine/Subroutine | 



Function 



Processes an attribute list. (Recursive) 

Processes DECLARE or ALLOCATE statement. 

Advances Data Pointer (DP), obtaining new input block if necessary. 

Checks CALL statements and options. 

Processes the DECLARE and ALLOCATE statements. 

Checks the DEFINED attribute. 

Examines the dimension specifications. 

Checks the ENTRY attribute. 

Removes environment information from the text and inserts it into 
the dictionary. 

Processes the end-of -program marker, and releases control. 

Processes the GENERIC attribute. 

Processes the INITIAL attribute. 

Analyzes LABEL attribute. 

Processes the LIKE attribute. 

Checks for a qualified subscripted identifier in parenthesis. 

Checks the REFER attribute. 

Scans for DECLARE, CALL, or ALLOCATE statements, moves others to the 
output string unaltered. 

Moves text to semicolon without alteration. 

Deletes the now obsolete USES and SETS attributes from text. 



(ATTLST 




|BDCL 




|BUMP 




| CALLOP 


(CP) | 


|DECL 




| DEFIND 




[DIMS 




(ENTRY 




(ENVMNT 


(CP) I 


|EOP 




| GENRIC 




(IVLIST 


(CP) | 


(LABEL 


CCP) | 


(LIKE 




| PSQUID 


(CP) | 


| REFER 


CCP) | 


(SCAN 2 




(SCANT 




JUSES 
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Table CS . Phase CS Read- In Fourth Pass 



_ T T - 

| Main Processing | 
I Routine I 



Statement or Operation Type 



Subroutines Used 



h 

| Controls main scan and identifies | SCNA 

| I/O statements for further analysis) 

I I 

i x 



|EOP, FORMAT, GET, LIST, OPEN, | 
[READ, TRTSC, plus those subroutines! 
I contained in modules CA and CC j 

„x . , J 



Table CS1. Phase CS Routine/Subroutine Directory 

I ' T ' 

| Routine/Subroutine | Function 

h 



|EOP 

i 

| FORMAT (CT) 

1 

(GET (CT) 

I 

(LIST 

I 

[OPEN (CT) 

1 
|READ 

I 
I 

I 

| SCNA 

i 
(TRTSC 



Processes end-of -program marker and releases control. 

Processes the FORMAT statement and format lists. 

Processes GET and PUT statements . 

Processes data lists. 

Diagnoses OPEN and CLOSE statements. 

Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE, and 
DELETE. This routine also checks for permissible combinations of 
these statements. 

Main scan of this pass. 

Skips over all statements other than I/O, moving them to the output 
text . 
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Table CV. Phase CV Read-In Fifth Pass 

r ' ■ ■ ■ 



Statement or Operation Type 



Subroutines Used 



. T — . . . T — 

| Main Processing | 
| Routine | 

j. „ + _- x_. 4 

(Identifies statements for which it | SCNA (CALLIN, CHAIN, DECL3 , D03, END3 f j 

(must build chains | (ENTRY3, EOP f POAl f PROC3, TRTSC, | 

I 1 j and those subroutines contained in | 

| I (modules CA and CC. | 

L . X . X . . J 



Table CV1. Phase CV Routine/Subroutine Directory 



j Routine/ Subroutine | 



Function 



h 



CALLIN CCW) 

CHAIN 

CHECKON 

DECL3 

D03 

END 3 

ENTRY 3 

EOP CCW) 

ILABSN (CW> 

POA1 

POC1 

PROC3 

SCNA 

SCNZ 

TRTSC 



Makes up the CALL chain. 

Forms chains. 

Checks the fifth pass stack for ON entry, in order to insert 
PROC-END statements round the ON unit. 

Chains the DECLARE statement to the appropriate PROC or BEGIN 
statement. 

Makes a stack entry for DO block. 

Checks tie fifth pass stack. 

Makes an entry in the ENTRY chain. 

Processes end -of -program marker, and releases control. 

Creates pseudo-assignment statements for initial labels. 

Analyzes prefix options in greater detail. 

Processes check lists. 

Makes an entry in the PROCEDURE- BEG IN chain. 

Main controlling routine of the pass. 

Extracts, statement number for label entry. 

Skips over statements not required for analysis in this phase. 



— j 
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DICTIONARY PHASE TABLES 



Table ED. Phase ED r Initialization 



_ T T _ 

| Main Processing | 
I Routine 



Statement or Operation Type 



I 

|. + 

|Sets up routines in scratch storage) SETUP 
| for phase EL | 

l . JL 



Subroutines Used 



| None 



Table EDI, Phase ED Routine/Subroutine Directory 



j Routine/Subroutine | 



Function 



EVENT 

TASK 

CELL 

BASED 

POINTER 

OFFSET 



(Routines for processing declared attributes. These set up 
| information in the attribute collection area of scratch core, 
j for reference by CDICEN, etc., in phase EL. 

I 

-JL . . 



Table EG. Phase EG Dictionary Initialization 

r T . T - 

l | Main Processing) 

| Statement or Operation Type | Routine j 
h 



Subroutines Used 



(Hashes labels 

| _. 

| PROCEDURE-BEGIN chain 
L 

| BEGIN 



(CAAl 

-+ 

|CA7 



(CHASH, CBCDL2 
- + - 

| None 



ICA8A 



None 



j. 

| PROCEDURE 
h 

h 



| CAPROC 



I ENTRY 



(CA10 

-+ 

I CFORP 



— +- 



(CANATP, CFORP 



| CAN ATP, CFORP 
- f _. 

JCHASH, CBCDL2 



(Formal parameters 



-H 



[Attribute list | CANATP 
f _ + 

(Creates entry type 2 entries for (CTYPBL 
(labels | 

L . J. 



(CAPRE1, CATCHA, CATBIT, CATPIC 



(ENT2F, CDEFAT 

I 

-X 
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Table EG1. Phase EG Routine/ Subroutine Directory 

I T ' ' ' ' ' — 

| Routine/ Subroutine | Function 



[CAA1 

| CAN ATP 
| CAPROC 
| CAPRE1 
| CATBIT 
| CATCHA 
ICATPIC 
ICA6 



-+- 



CA8A 




CA10 




CBCDL2 




CDEFAT 




CFORP 




CHASH 




CTYPBL 




ENT2F 




TYPW 




OPTN1 


CEF) 


OPTN2 


CEF) 


OPTN3 


(EF> 


ATTRBT 


(EF) 



| Scans label table and hashes labels. 

| Processes attribute list. 

[Processes PROCEDURE statements. 

[Processes precision data. 

| Processes BIT attribute. 

(Processes CHARACTER attribute. 

[Processes PICTURE attribute. 

i Scans the PROCEDURE- BEGIN chain for the relevant statements, and 
| sets bits in Dictionary entries for optimization options on PROCE- 
DURE and BEGIN statements. 

[Processes BEGIN statements. 

[Processes ENTRY statements. 

[Traverses the hash chain looking for entries with the same BCD as 
| that just found. 

(completes data byte for entry type 2 entries by default rules. 

| Processes formal parameter lists. 

[Obtains an address in the hash table for an identifier. 

[Creates entry type 2 entries for labels. 

[Creates or copies second file statements. 

[Scans ENTRY chain. 

[Checks containing block options, for inheritance. 

[Processes procedure options. 

[Performs post processing, makes STATIC DSA decisions. 

[Processes POINTER, OFFSET, and AREA attributes. 
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Table EI. Phase EI Dictionary Declare Pass One 

r . . T T 

Main Processing 
Statement or Operation 



Routine 



Subroutines Used 



Scans DECLARE statement 



CCGSO 



None 



Scans text 



CCGS2 



None 



Processes structure level 



CCGSCM 



None 



Factored attribute, left 
parenthesis 



CCFLP 



CFPMCR 



Factored attribute, right 
parenthesis 



CCFRP 



None 



Data following DEFINED attribute 



CCDEF 



NEWBLK, CTXTRM 



POSITION 



POSIT 



None 



CHARACTER, BIT 



CHABIT 



CTXTRM 



PICTURE 



CATPIC 



None 



LIKE 



LIKE 



None 



KEY 



KEYED 



None 



Dimension 



CDDIMS 



CTXTRM, AST, TOMENE, ERRORS 



Precision 



CDPREC 



-+- 



ERRNEG, SCLBIG 



INITIAL 



EJINIT 



CECON, EHINIT 



INITIAL CALL 



INC ALL 



CTXTRM 



OFFSET 



OFFSET 



CTXTRM 



BASED 



BASED 



PTVEXP 



h 



AREA 



AREA 



CTXTRM 



L J. . X . . 

Table Ell. Phase EI Routine/Subroutine Directory (Part 1 of 2) 



j Routi ne/Subrout ine | 



Function 



| AREA 

| AST 

| BASED (EH) 

| CATPIC 
| CCDEF 
| CCFLP 
| CCFRP 
| CCGSCM 
|CCGSAT 
(CCGSE 
CCGSO 



[Processes AREA attributes. 

| Deals with the case of* dimension bounds mixed with non -* bounds. 

[Entry point in OFFSET routine, at which second file statement is 
j made. 

| Processes PICTURE attributes. 

| Processes data following DEFINED attribute. 

| Processes factored attributes (left parenthesis). 

| Processes factored attributes (right parenthesis). 

j Processes structure level. 

j Attribute routine selector. 

j Scans DECLARE chain. 

Scans text. 
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Table Ell. Phase EI Routine/Subroutine Directory (Part 2 of 2) 

Function 



f T - 

| Routine/Subroutine | 



h~ 



CCGS2 

CDDIMS (EJ) 
CDPREC (EJ) 
CECON (EH) 

CFPMCR 
CHABIT 
CSGSOO 
CTXTRM 

EHINIT (EH) 

EJINIT (EJ) 

ERRNEG 

ERRORB 

Gentry 

INC ALL (EJ) 

IVROOM (EH) 



IVPUTL 


(EH) 


IVPUTC 


(EH) 


IVPUTO 


(EH) 


KEYED 




LIKE 




NEWBLK 




OFFSET 


(EH) 


POSIT 




PTVEXP 


(EH) 


SCLBIG 




SECON 




SETS 





Scans source text. 

Processes dimension attributes. 

Processes precision attributes. 

Makes a dictionary entry for a constant unless one has already been 
made. Returns the dictionary reference of the constant entry. 

Obtains more storage for the factored attribute table. 

Processes CHARACTER and BIT attributes. 

Detects end of DECLARE chain. 

Tests for space in current text block and obtains new block if 
necessary. 

Processes the INITIAL attribute except for the initialization of 
label variables and INITIAL CALL. 

Processes INITIAL attribute and LABEL with a label-constant list. 

Deals with the case of a negative precision specification. 

Deals with the case of lower dimension bound declared greater than 
the upper bound. 

Keeps a count of parentheses in GENERIC and ENTRY processing. 

Processes INITIAL CALL attributes. 

Checks if there is space in scratch storage for another entry. If 
not, it makes a dictionary entry and chains it to the previous one 
or to the C8 in text as required. 

Places a dictionary reference in the 'initial list' for a label con- 
stant. If the constant is not known, a dummy reference is inserted. 

Places a dictionary reference in the 'initial list* for a constant. 

Places the dictionary reference of zero in the 'initial list* for a 
negative or imaginary replication factor. 

Processes KEY attributes. 

Processes LIKE attributes. 

Obtains new text block. 

Processes OFFSET attributes. 

Processes POSITION attributes. 

Entry point in OFFSET routine, at which secondfile statement is 
made. 

Deals with the case when a precision specification for fixed-point 
data is declared too large. 

Creates a dictionary entry for a constant provided the appropriate 
entry has not been already made. 

Processes USES and SETS attributes. 

Deals with the case when the number of dimensions declared is great- 
er than 32. 
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Table EL, Phase EL Dictionary Declare Pass Two 
r T _ T 

Main Processing 
Statement or Operation Type 



Routine 



Subroutines Used 



Scans chain of DECLARE statements 



CGENSC 
CDCLSC 



CDCLSC 



Scans each item of DECLARE 
statement 



ATLSCN, BCDPR r CDFLT, CDICEN, 
CDIMAT, DCIDPR, INTLZE, P0STPR f 
SELMSK, STRPR 



Initializes each identifier 
declared 



INTLZE 



DCIDPR 



Processes factor brackets and level 
numbers 
^ 

Scans for next level number 
, 

Processes BCD of identifier 



DCIDPR 



TEMSCN, BCDPR 



TEMSCN 
BCDPR 



CDATPR 



BCDISB, CHASH, SELMSK 



Hashes BCD of identifier 
,. _ 

Scans list of attributes following 
identifier 
, . 

Applies factored attributes 



CHASH 
ATLSCN 



None 



CDATPR 



h 

Applies implicit attribute 
j 

Attributes controlling routine 



CDFATT 
IMPATT 
CDATPR 



CDATPR 



None 



CDAT40, 
CDAT44, 
CDAT4A, 
CDAT4F, 
CDAT57 f 
CDAT61, 
CDAT69, 



CDAT41, 
CDAT45, 
CDAT4B, 
CDAT54, 
CDAT58, 
CDAT62, 
CDAT6A, 



CDAT42, 
CDAT48, 
CDAT4C, 
CDAT55, 
CDAT59, 
CDAT63, 
CDATB4, 



CDAT43, 
CDAT49, 
CDAT4D, 
CDAT56, 
CDAT60, 
CDAT64, 
CDATB8 
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Table ELI- Phase EL Routine/Subroutine Directory (Part 1 of 2) 

Function 



r T" 

| Routine/Subroutine | 



H- 



|ATLSCN 




1BCDISB 




( BCDPR 




| CDATPR 


(EK) | 


1CDAT40 


(EK) | 


|CDAT41 


(EK) | 


ICDAT^2 


(EK) | 


|CDAT43 


(EK) | 


|CDAT4U 


(EK) | 


|CDATU5 


(EK) | 


|CDAT46 


(EK) | 


(CDAT48 


(EK) | 


1CDAT4 9 


(EK) | 


| CDAT4A 


(EK) | 


I CDAT4B 


(EK) | 


| CDAT4C 


(EK) 1 


J CDAT4D 


(EK) | 


| CDAT4F 


(EK) | 


|CDAT58 


(EK) | 


(CDAT59 


(EK) | 


1 CDAT5A 


(EK) | 


|CDAT60 


(EK) J 


|CDAT61 


(EK) 1 


(CDAT62 


(EK) | 


[CDAT63 


(EK) | 


|CDAT64 


(EK) | 


(CDAT69 


(EK) | 


1 CDAT6A 


(EK) | 



Scans the list of attributes following the identifier. 

Checks for multiple declarations, etc. 

Processes BCD of identifier. 

Attribute controlling routine. 

Processes DECIMAL attribute. 

Processes BINARY attribute. 

Processes FLOAT attribute. 

Processes FIXED attribute. 

Processes REAL attribute. 

Processes; COMPLEX attribute. 

Processes precision attributes. 

Processes VARYING attribute. 

Processes PICTURE attribute. 

Processes BIT attribute. 

Processes CHARACTER attribute. 

Processes FIXED DIMENSIONS attribute. 

Processes LABEL attribute. 

Processes ADJUSTABLE DIMENSIONS attribute. 

Processes ENTRY attribute. 

Processes GENERIC attribute. 

Processes BUILT-IN attribute. 

Processes EXTERNAL attribute. 

Processes INTERNAL attribute. 

Processes AUTOMATIC attribute. 

Processes STATIC attribute. 

Processes CONTROLLED attribute. 

Processes INITIAL attribute. 

Processes LIKE attribute. 
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Table ELI. Phase EL Routine/Subroutine Directory (Part 2 of 2) 

Function 



r T _ 

| Routine/Subroutine | 



*- 



CDAT6B (EK) 
CDAT6C (EK> 
CDAT6D (EK) 
CDAT70 (EK) 
CDAT88 (EK) 
CDCLSC 
CDFATT (EM) 
CDFLT (EM) 
CDICEN (EM) 
CGENSC (EM) 
CHASH (EM) 
DCID1 
DCIDPR 
ECHSKP (EK) 
IMP ATT (EM) 
INTLZE 
POSTPR 
SCAN 4 (EM) 
SELMSK 
STRPR 
TEMSCN 



Processes DEFINED ATTRIBUTE. 

Processes ALIGNED attributes. 

Processes UNALIGNED attribute. 

Processes AREA attribute. 

Processes POS attribute. 

Scans each item of DECLARE statement. 

Applies factored attributes. 

Applies default attributes. 

Constructs dictionary entry. 

Performs phase initialization and scans chain of DECLARE statements. 

Hashes BCD of identifier. 

Main scan routine. 

Processes factor brackets and level numbers. 

Initializes and passes control to Module EM. 

Applies implicit attributes. 

Performs initialization for each identifier declared. 

Postprocessor. 

Scans chain of DECLARE statements. 

Selects correct test mask to be initialized. 

Processes inheriting of dimensions in structures. 

Scans ahead for next level number. 
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Table EP. Phase EP Dictionary Entry III and Call 



T . — . T 

Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



Scans for PROCEDURE entries type 1 
j „ . 

Follows chain of ENTRY statement 
entry type 1 entries from a PROCE- 
DURE entry type 1 

I. „ 

Examines all labels belonging to an 
entry type 1, constructing an entry 
type 2 or 3 , if necessary 



ENTRY3 



None 



EPL40 



None 



LBPROC 



None 



h 



Follows CALL chain in text making 
dictionary entries for entry points 



EPL290 



None 



h 



Examines the first character of an 
identifier and sets a flag indicat- 
ing the range in which it lies 



CDIMAT 



None 



Applies default rules 



CDFLT 



None 



Given an identifier calculates its 
offset in the hash table 
j 

Constructs a dictionary entry 



CHASH 



None 



CDICEN 



None 



h 



Sets address slot to zero or the 
end of the dictionary 



FNDEND 



None 



Constructs list of numbers of known 
blocks 



BLDST2 



+ 

None 



-+ 

| None 

_JL 



j Built in function name 

L . . 



| SCANBF 
.X 
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Table EP1. Phase EP Routine /Subroutine Directory 

| Routine/ Subroutine ) 
h 



Function 



BLDST2 

CDICEN 

CDIMAT 

CDFLT 

CHASH 

ENTRY3 

EPL20 

EPL40 

EPL75 

EPL100 

EPL29 

EPL340 

EPL360 

EPL600 

FNDEND 

LBPROC 

PHSINT 

PHSMRK 

SCANBF 



Constructs list of numbers of known blocks. 

Constructs dictionary entry. 

Sets flag for default routine. 

Applies default rules. 

Calculates offset in hash table for given BCD. 

Scans ENTRY chain for PROCEDURE statements. 

First entry in entry type 1 chain. 

Scans ENTRY chain for ENTRY statements type 1. 

Return point from LBPR0C routine. 

Processes new entry label. 

Scans CALL chain. 

Searches built-in function table for BCD of identifier. 

Blanks out BCD in text. 

Scans the CALL chain. 

Sets address slot for label. 

Processes labels of PROCEDURE or ENTRY statements. 

Initialization of phase. 

Marks later modules as f wanted 1 or 'not wanted*. 

Checks for built-in function name. 
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Table EW. Phase EW Dictionary LIKE 

r • ' ' — ' 



Statement or Operation Type 



T . — . T ~ 

| Main Processing! 
| Routine 



Subroutines Used 



-+- 



(Scans LIKE chain (EWBEGN 

|.„ . „ + 

| Updates hash chain for new €;ntry (EWHSCN 



.+. 



-_ + . 



[EWCOPY, EWELDM, EWINCH, EWONDM 



[None 



h 



-+- 



| Calculates start of structure data | EWVART 
| from start of variable information | 

(Changes error entry to base element ( EWC HEN 
^ . + _ 

(Copies dimension table entry and (EW2FNT 
(second file statement | 

L . . - J. . 



[None 



| None 



| EWNWBK 

I 

-x. _. 



Table EW1. Phase EW Routine/Subroutine Directory 



| Routine/ Subroutine) 



Function 



ALIGN (EV) 

BASED (EV) 

CESCN 

EWBEGN 

EWCHEN 

EWCOPY 

EWDCCY (EV) 

EWELDM 

EWELTS 

EWEND 

EWERNC 

EWHSCN 

EWINCH 

EWNOLK 

EWNWBK (EV) 

EWONDM 

EWORDM 

EWSTRT 

EW2FNT (EV) 



Provides correct alignment of base elements in likened structure. 

Inserts or deletes defined slot # where only one structure is based. 

Scans dictionary to find entry corresponding to BCD in text. 

Scans LIKE chain. 

Changes error entry to base element. 

Copies dictionary entry into scratch storage. 

Copies initial dictionary entries and associated second file state- 
ments, etc. 

Copies entry into scratch storage with dimension data removed. 

Tests whether the likened structure is dimensioned. 

Handles transfer of control to next phase. 

Processes erroneously "likened 11 major structure. 

Updates hash chain for new entry. 

Completers entry copy and places it in dictionary. 

Tests whether original structure is dimensioned. 

Obtains new dictionary block and terminates current one in use. 

Copies entry into scratch storage, inserting dimension information. 

Processes dimension information in original structure. 

Tests validity of likened structure. 

Copies second file statement and associated dictionary reference. 
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Table EY. Phase EY Dictionary ALLOCATE 

f . T T 

| (Main Processing 

| Statement or Operation Type | Routine 



Subroutines Used 



(Scans text for explicitly pointer- | IEMEX 
(qualified based variables | 



EY14 



[Copies dictionary entries for (EY14 
[explicitly qualified based | 
| variables | 



HASH, ATPROC, DICBLD, STRCPY 



(Second file pointers. Scans ALLOC- ) IEMEY 

| ATE statements | 

f + _ 

(Completes copied dictionary entry (ATPROC with 
| for an allocated item | second entry 

( (point ATPROD 

h 



ATPROC, DICBLD, HASH, STRCPY 



MOVEST 



(Controls ATPROC and ATPROD routines | STRCPY 
(for each member of a structure | 

L . X 



ATPROC, ATPROD 



Table EY1. Phase EY Routine/Subroutine Directory 



r . — T - 

| Routine/Subroutine | 



Function 



ATPROC/ ATPROD (EZ) 

DICBLD 

EY16 

EY17 

EY21 

HASH 

IEMEX 

EY14 

IEMEY 

MOVEST <EZ> 

STRCPY 



Complete copied dictionary entry for allocated item by including 
attributes from ALLOCATE and second file statements. 

Collects attribute given for an identifier and copies its dictionary 
entry . 

Processes ALLOCATE statements. 

Processes identifier in ALLOCATE statement. 

Processes major structures. 

Hashes BCD of identifier to obtain its dictionary reference. 

Scans text for explicitly pointer-qualified variables. 

Copies dictionary entries for explicitly qualified based variables. 

Scans second file, reverses pointers. Scans ALLOCATE statements. 

Copies second file statement and associated dictionary entry. 

Controls ATPROC and ATPROD for each member of structure. 
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Table FA. Phase FA Dictionary Context 



h 

Scans text |CE30 

| .. + _„. 

Reorders subscripts; makes die- |CEID 
tionary entry for file and event | 
variables | 



Statement or Operation Type 



|Main Processing) 
| Routine 



Subroutines Used 



(CENDTS, CETRAN 

.+ 

J CESCN 



h 



Identifies keywords 



H 



|CEKYWD 
i 



JCEKEND, CEKEOB, CEKEOP, CEKON, 
(CEKPRC, CEKSND 



Scans dictionary 



| CESCN 



h 



-+— 

| CFPDR2 



JCESTUC, CEYES f CFPDER f CFPDR2, 
[CHASH, CE3XX 



Makes dictionary entry for 
variables 



JCDFLT, CDICEN, CDIMAT, CEONCK 



h 



-+ 

JCHASH 



Scans dictionary entry for con- 
stants and makes new entry, if 
necessary. 



I CECON 



h 



, + — _ 

[None 



Scans PICTURE chain entry and makes |CEPICT 
new entry, if necessary. | 

. . x 



Table FA1. Phase FA Routine/Subroutine Directory (Part 1 of 2) 

Function 



T' T" 

| Routine/Subroutine I 



CDFLT 

CDICEN 

CDIMAT 

CEBNK 

CECON (FB> 

CEDWAX 

CEID 

CEINT 

CEISUB 

CEKCEN 

CEKDCL 

CEKEND 

CEKEOB 

CEKEOP 

CEKEY 

CEKIDO 

CEKON 



Determines default attributes for identifier. 

Constructs default dictionary entry for identifier. 

Determines default scale for identifier. 

Transfer point for zero or blank. 

Scans dictionary entry for constants. 

Subscript prime text marker. 

Reorders subscripts and makes dictionary entries for files and event 
variables. 

Transfer point for constant routine. 

Transfer point for iSUB. 

Transfer point for CALL to get over chain. 

Removes SN from DECLARE statements. 

Processes END keyword. 

Processes end-of- block marker. 

Handles end- of -program marker, or start of second file. 

Transfer point for keyword. 

Transf€»r point for iterative DO. 

Processes ON keyword. 
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Table FA1. Phase FA Routine/Subroutine Directory (Part 2 of 2) 

Function 



r T - 

| Routine/Subroutine! 



H- 



CEKPFR 

CEKPRC 

CEKSN 

CEKSND 

CEKYWD 

CELP 

CENDTS 

CEONCK 

CEPFDR 

CEPICT (FB> 

CERP 

CESCN 

CESMCL 

CESTUC 

CETRAN 

CEYES 

CE2L 

CE30 

CE31 

CE32 

CE300 

CE3XX 

CFPDER (FB) 

CFPDR2 (FB) 

CHASH 

CHASHC 

IEMFA 



Transfer point for picture format item. 

Processes PROCEDURE keyword. 

Moves SN # etc. , to output stream. 

Processes start of second file statement. 

Identifies keywords. 

Transfer point for left parenthesis. 

End of text block in output file routine. 

Makes entry for programmer-named ON condition. 

Makes dictionary entry for variables. 

Scans picture chain entry. 

Transfer point for right parenthesis. 

Scans dictionary. 

Handles semicolon. 

Points at next entry in structure chain. 

Translates keyword into transfer instruction. 

Compares structure levels. 

Transfer point for second level marker. 

Controlling scan of text. 

Tests for end of block. 

Moves one byte to output stream. 

Switches to appropriate routine. 

Compares identifier in text with entry in dictionary. 

Makes dictionary entry for ordinary identifier. 

Makes dictionary for formal parameter. 

Hashes identifier. 

Hashes constant. 

Initializes phase. 
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Table FE. Phase FE Dictionary BCD to Dictionary Reference 



- T . . T _ 

(Main Processing) 
| Routine 



Statement or Operation Type 



Subroutines Used 



[Scans text 



ICE30 



(CENDTS, CETRAN 
_ + 

|CESTUC f CEYES f CFPDER, CFPDR2 f 
|CHASH, CE3XX 



[ Scans dictionary 



[CESCN 



h 



I 



j Checks for array, function, or |CELP 
[pseudo-variable if left parenthesis! 
I is found | 



| CEFNCT 
I 



h 

± 

(Identifies keywords 

, 

| Makes dictionary entry 

L 



[Tests for end of text block 



| CENDTS 



[CEKEND, CEKIDO, CEKPRC 



| CEKYWD 



j CEKEOB, CEKEOP 



| None 
-J. 



[CDFLT, CDICEN, CDIMAT 
-JL 



Table FE1. Phase FE Routine/Subroutine Directory 



r T" 

| Routine/Subroutine | 



Function 



h 



-H 



| CDFLT 
[ CDICEN 
| CDIMAT 
| CEFNCT 
| CEKEND 
I CEKEOB 
[ CEKEOP 
| CEKIDO 
I CEKPRC 
| CEKYWD 
|CELP 

| CENDTS 

[CESCN 

| ujlSTUC 

[CETRAN 

[CEYES 

[CE30 

| CE3XX 

[CFDICN (FF) 

| CFPDER 

| CFPDR2 

[CHASH 



[Applies default rules. 

| Constructs dictionary entry. 

[Sets j-lay ror aerault routine. 

[Tests validity of function reference in text. 

(Processes END keyword. 

[Processes end-of -block marker. 

[Processes end-of -program marker, or start of second file. 

[Processes iterative DO keyword. 

[Processes PROCEDURE keyword. 

(Identifies keyword. 

[Checks for array, function, or pseudo- variable if left parenthesis 
| is found. 

[Tests for end of text block in output file. 

| Scans di ct ionary . 

joints at next entry in structure chain. 

[Translates keyword into transfer instruction 

| Compares structure levels. 

[Controlling scan of text. 

I Compares identifier in text with dictionary entry. 

| Makes dictionary entry. 

j Makes dictionary entry for statement with ordinary identifiers. 

[Makes dictionary entry for formal parameters. 

[Calculates offset in hash table for given BCD. 
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Table FI. Phase FI Dictionary Checking 



- T . . T _ 

(Main Processing! 
Routine | 



I 



Statement or Operation Type 



Subroutines Used 



Scans text 



| CESTRT 



| CEKEYW 



Identifies keywords 



I CEKEYW 



ICEKEOB, CEKEOP, CEKIDO, CEKSN 



Checks GOTO statement references [CEGOTO 



| None 



Converts GOTO to GOOB, if necessary ( CEGOB 



(None 



Checks file references 



| CEFILE 



[None 



(Checks data list items for validity (CEDTCK 

L . , . J. 



I None 



Table FI1. Phase FI Routine/Subroutine Directory 



r T - 

| Routine/ Subroutine | 



Function 



CECMBK 

CEDDOL 

CEDOND 

CEDREF 

CEDTCK 

CEFILE 

CEFNMK 

CEGOB 

CEGOTO 

CEISUB 

CEJUMP 

CEKEND 

CEKEOB 

CEKEOP 

CEKEYW 

CEKIDO 

CEKON 

CEKSN 

CELRCT/CERPCT 

CEOOPS 

CEPRBG 

CERFMT 

CESMCL 

CESTRT 



Tests value of previous second level marker. 

Processes function names used as control variables for DO groups. 

Processes end of iterative DO groups. 

Tests whether dictionary reference needs to be checked. 

Checks data list items for validity. 

Checks file references. 

Processes function markers. 

Converts GOTO to GOOB, if necessary. 

Checks GOTO statement references. 

Processes iSUBs. 

Bumps scan pointer over dictionary reference. 

Processes END statements . 

Processes end-of- block marker. 

Processes end- of- pro gram marker. 

Identifies keywords. 

Processes iterative DO keyword. 

Processes ON statements. 

Processes statement number. 

Process left and right parentheses. 

Checks validity of keywords in the text. 

Processes PROCEDURE and BEGIN statements. 

Processes remote format references. 

Processes semicolons. 

Controlling scan of text. 
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Table FK. Phase FK Dictionary Attribute 

r . — . _ T . . T - 

| | Main Processing! 

j Statement or Operation Type | Routine j 



Subroutines Used 



(Scans attributes area for SETS 
[lists 

j 

| Scans SETS list 

j. - .. 

(Processes constants 

|. .. 

(Processes identifiers 



|F01A 
I 



I None 



(None 



IF02 



| CONPRO 



[None 
4 

(CESTUC, CE3XX f CHASH 

-J. . . 



| CESCN 



Table FK1. Phase FK Routine/Subroutine Directory 

r t ■ 

| Routine/ Subroutine | Function 

h 



CEIDLP 

CENQUL 

CESCN 

CESTUC 

CE3XX 

CHASH 

CMP ERR 

CONPA 

CONPRO 

ENDFO 

FOERR2 

FOIA 

F02 

F04 

GETSCR 



Scans qualified name. 

Processes unqualified name. 

Processes identifier. 

Finds address of next structure in chain. 

Compares current BCD with BCD in hash chain. 

Calculates offset in hash table for given BCD. 

Provides termination error action. 

Inserts constant in ordered stack. 

Processes constants. 

Releases control. 

Diagnoses constant greater than 255. 

Scans attribute tidy-up area. 

Scans SETS list. 

Completers SETS dictionary entry. 

Obtains scratch storage. 
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Table FO. Phase FO Dictionary ON 



Statement or Operation Type 



T ' T" 

Main Processing) 
Routine j 



Subroutines Used 



Scans input text for ON, SIGNAL, 
and REVERT statements 



FKMVIT 



|BEFTRN, CENDTS, QP 



h 



Moves second file from input text 
block to output text block 



F2 



|CENDTS, BEFTRN 



"+ 

(LABCD 

I 



-H 



Makes dictionary entries for 0N- 
conditions found in ON, SIGNAL, and 
REVERT statements 



FKDCEN 



I- 



-+ 

j CENDTS 

I 



Examines BCD of file entries 
referenced in ON, SIGNAL, and 
REVERT statements; scans previous 
entries for ON conditions 



MVSIG 



h 



Processes CHECK and NOCHECK list. 



BEFCHL 



j CENDTS, LABCD 



Creates dictionary entries for con- 
dition prefixes 



NOMOVE 



IQP 



Table FOl. Phase FO Routine/Subroutine Directory 



r — . T - 

l Routine/Subroutine | 
h 



Function 



| BEFCHL 

| BEFTRN 

| CENDTS 
| FKDCEN 

1 FKMVIT 
[FKNOCK 
| FKPROC 
|FP010 (FP> 

|F2 
[LABCD 

| MVSIG 

| NOMOVE (FP) 
IQ3 

IQP 
|R8 



| Processes CHECK and NOCHECK list, 

(Replaces statements containing dummy dictionary references by error 
[statements, and generates error message. 

(Requests a new text block for output. 

[Makes dictionary entries for ON conditions found in ON, SIGNAL, and 
(REVERT statements. 

(Scans input text for ON, SIGNAL, and REVERT statements. 

(Processes CHECK and NOCHECK lists. 

(Scans input text for ON, SIGNAL, and REVERT statements. 

(Chains initial label statements and makes second file dictionary 
j entries for each label array initialized in this way. 

(Moves second file from input text block to output text block. 

(Creates a dictionary entry for each label constant and each entry 
(label mentioned in a CHECK list. 

(Examines BCD of file entries referenced in ON, SIGNAL, and REVERT 
(statements; scans previous entries for ON conditions. 

(Creates dictionary entry for condition prefix. 

(Processes condition prefixes changed in current block. 

(Determines which condition prefixes require dictionary entries. 

(Moves statement to output buffer. 
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Table FQ. Phase FQ Dictionary Picture Processor 



_ T . . T 

(Main Processing | 

I Routine j 
. + + 

|CYBR3 JCYEK, CYFIND, CYTABL 



Controls scan of PICTURE chain; 
initializes 

i 

Picture character 9 



Statement or Operation Type 



Subroutines Used 



-H 



I CYNINE 



| None 

-+ 

| None 



Picture characters S, $ r +, - 
, ... 

Picture character V 
|._ __. 

Picture character E 



ICYSDPM 



1CYV 
ICYE 



Picture character K 



|CYK 

-+ 

(CYCRDB 



(None 

-+- 

j CYC 21 

-+ 

|CYC21 



-H 



Picture characters CR r DB 
| 

Picture characters l f 2 r 3 



[None 



— 1 



| CYOTT 

-+— 

|CYP 



[None 



Picture character P 



I'- 
ll 

h 

h 
j] 
|. 

Picture character G 
|. 

Picture characters 6, 7 f 8, H 
|. 

Picture character M 
| 

Picture character F 
h 



(None 

-+ 

(None 

-+— 

(None 



— ( 



Picture character Z 



Picture character * 



|CYZ 

-+— 

ICY AST 



Picture character Y 



|CYY 

-+— 

|CYG 



|None 

-+ 

(None 



-H 



I CYSSEH 



(None 

. + „ 

[None 



ICYSTM 



|CYF 
+ 

scale|CYC97 



j None 
j CYCONV 



Converts integer constants to 
factor 



h 



-+ 

| CYFNT 
-X 



[Calculates scale factor 



INone 
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Table FQ1. Phase FQ Routine/Subroutine Directory 



r T « 

| Routi ne/Subr out i ne | 



Function 



CYAST 

CYBR2 

CYBR3 

CYCONV 

CYCPBS 

CYCRDB 

CYC21 

CYC 97 

CYE 

CYEK 

CYENDD 

CYF 

CYFIND 

CYFNT 

CYG 

CYK 

CYNINE 

CYOTT 

CYP 

CYSDPM 

CYSS 

CYSSEH 

CYSTM 

CYTABL 

CYV 

CYY 

CYZ 



Processes picture character *. 

Identifies picture character. 

Controlling scan of PICTURE chain. 

Converts integer constant to scale factor. 

Processes picture characters slash (/) , comma ( f ) f point (.), and B. 

Processes picture characters CR r DB. 

Adjusts data to terminate picture before illegal character. 

Converts integer constant to scale factor. 

Processes picture character E. 

Completes entry for correct picture. 

Releases control at end of picture chain. 

Processes picture character F. 

Obtains code for next character in picture. 

Calculates scale factor. 

Processes picture character G. 

Processes picture character K. 

Processes picture character 9. 

Processes picture characters 1,2 # 3. 

Processes picture character P. 

Processes picture characters S f $ f + , -. 

Processes picture characters 6,7. 

Processes picture characters 8,H. 

Processes picture character M. 

Code table for picture characters. 

Processes picture character V. 

Processes picture character Y. 

Processes picture character Z. 
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Table FT. Phase FT Dictionary Scan 



- T . . . T 

1 Main Processing | 
| Routine j 

_+_„_ + 

|AC1 | None 



Statement or Operation Type 



Subroutines Used 



(Scans second file 



h 

| Scans dictionary 
| 

[Data variables 



[Bl 



(None 



! DATVAR 



iNone 



j. .. 

| Event or label variables 
| 

(Dimension attributes 



( EVLABV 

-+ 

|F0 



(None 

-+- 

(None 



h 

| Scans AUTOMATIC chain 
, 

(Scans STATIC chain 



|G2 

-+ 

|G3 



(None 
.+ 

(None 



I. 

| Scans CONTROLLED chain (GE1 
|. „ + . 

(Sets dope vector required bit (P1A 



h 

| ENTRY type 1 entries 

| 

| ENTRY type 2 entries 



(None 

-+ 

(None 



h 

| ENTRY type 3 entries 

j 

(ENTRY type 4 entries 



-+ 

IQA3 



(None 



._+. 



| PROPIC 



(QA2 

-+— 
IQX 



(None 



h 

| ENTRY type 5 and 6 entries 

, 

( Constants 

h 



[None 



IQA1 



(PROPIC 
. + 

(None 



I CONST 



1 Structures 



I STRUCT 



(AJDMRT, MKDMTB, MVTXT 

-X ,_. 
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Table FT1. Phase FT Routine/Subroutine Directory 



| Routi ne/Subroutine j 



Function 



AC1 
AC 2 
AF3 
AJDMRT 

Bl 

BIA 

CONST 

DATVAR 

EVLABV 

FO 

FULIN 

GE1 

G2 

G3 

MKDMTB 

MVTXT 

PROPIC 

P1A 

QA1 

QA2 

QA3 

QA4 

QX 

STRUCT 

TRVECT 



Scans second file. 

Detects second file statement marker. 

Points relevant dictionary entry at statement. 

Modifies second file statements to initialize dope vectors for base 
elements, rather than for the containing structures. 

Scans dictionary. 

Initializes dictionary scan. 

Processes constants. 

Processes data variables. 

Processes event or label variables. 

Processes dimension attributes. 

Moves initial label statement to the second file, collecting togeth- 
er all statements for the same array. 

Scans CONTROLLED chain. 

Scans AUTOMATIC chain. 

Scans STATIC chain. 

Creates dimension tables. 

Moves text blocks. 

Extracts precision data from picture tables. 

Sets 'dope vector required' bit. 

Processes ENTRY type 5 and 6 entries. 

Processes ENTRY type 3 entries. 

Processes ENTRY type 2 entries. 

Processes ENTRY type 1 entries. 

Processes ENTRY type 4 entries. 

Processes structures. 

Transfer vector for appropriate chaining routine. 
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Table FV. Phase FV Dictionary Second File Merge 

j _ — . ._ T . 



h 



Statement or Operation Type 



Mam Processing 
Routine 



Subroutines Used 



Reverses second file pointers; 
scans text for block heading state- 
ments; allocates statements and 
references to dynamically defined 
data 



IEMFV 



DATCPY, DEFMOV, DEFTST, F2MOVE r 
MOVE 



h 



h 



Examines ADF references in second 
file; completes defined item dic- 
tionary entry 



DEFCOM 



None 



h 



Detects dictionary references which 
refer to dynamically defined data 



DEFTST 



None 



h 



Examines dictionary references and 
moves any associated second file 
statements to the output string 



DATCPY 



F2MOVE, MOVE 



Inserts dictionary reference* of 
pointer in associated based vari- 
able entry 



FVPTR 



None 



h 



Processes adjustable extents on 
based arrays 



FVADV 



None 



h 



Processes adjustable lengths on 
based strings 



FVSDV 



None 
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Table FV1. Phase FV Routine/Subroutine Directory 



r . T _ 

| Routine/Subroutine | 
h 



Function 



DATCPY 

DEFCOM (FW) 

DEFMOV 
DEFTST 

FVO 

FV9 

FV10 

FV16 

FV18 

FV19 

FV20 

FV3** 

FVPTR 

FVADV 

FVSDV 

F2MOVE 

IEMFV 

MOVE 



Moves second file statements associated with dictionary reference to 
output string. 

Examines ADF references in second file; completes defined item dic- 
t i ona ry entry . 

Modifies text references to dynamically defined data. 

Detects dictionary references which refer to dynamically defined 

data. 

Scans second file reversing pointers. 

Initializes text scan. 

Scans text. 

Releases control. 

Processes ALLOCATE statements. 

Processes PROCEDURE statements. 

Processes BEGIN statements. 

Scans AUTOMATIC chain. 

Inserts D.R. of pointer in associated based variable entry. 

Processes adjustable extents on based array. 

Processes adjustable lengths on based strings. 

Moves second file statement to output string. 

Controlling scan of second file; invokes processing routines. 

Moves text from input string to output string. 
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PRETRANSLATOR PHASE TABLES 



Table GA, Phase GA DCLCB Generation 

r . „ 



. _> T .„- T - 

|Main Processing! 
Statement or Operation Type | Routine j 



Subroutines Used 



IIL0100 

- + „„ 

IIL0110 



| Scans STATIC chain 

j. . 

(Generates DECLARE control block 

| entry [ 

V _. _„ .. ._ + _ 

(Generates OPEN control block entry (IL0120 

L . . — JL .. - 



|IL0110, IL0120 

(CHKATT, IHEENV 

t 



1 CHKATT 



Table GA1. Phase GA Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



h 



-+- 



CHKATT 
IHEENV 

ILOOOO 
IL0100 
IL0110 
IL0114 
IL0115 
IL0117 
IL0118 
IL0120 
IL0200 



Checks attributes and creates control words. 

Checks environment options , and inserts them into DECLARE control 
blocks. 

Entry point from compiler control. 

Scans STATIC chain. 

Generates DECLARE control block entry. 

Test point for environment entry. 

Return point from environment processing . 

Processes file attributes entry. 

Branch point of SYSPRINT file found- 

Generates OPEN control block entry - 

Releases control • 



Table GB. Phase GB Pretranslator I/O Modification 



T _. . _ T - 

Main Processing! 
Routine j 



| Statement or Operation Type 
h 



Subroutines Used 



| Removes all second level markers 



j. 

(Reorders options to put EDIT, DATA 
jor LIST last 

j. _.. 

(Moves DO specifications to precede 
(relevant list in data lists, adds 
(END statements 

| 

| Expands iteration factors in format 
I lists 



Throughout 
phase 



I None 



A8 



SCAN2 



|SCNS f SCAN2 

I 
-+— — ----- - 

LLDOIT 



-+— — 

| None 



FORLST 



| _. 

(Checks for use of COBOL files in 
(READ, WRITE, and LOCATE Statements 

L . . . . 



AM 



(LOCATE, READ, WRITE, DELETE, MAP, 
|COPY f STSCAN 

-i- . . ._„_. ._. . , 
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Table GB1. Phase GA Routine/Subroutine Directory 



r . — T _ 

| Routine/Subroutine | 



Function 



[AFORMT 

|A4 

|A6 

|A8 

[A21 

| COPY (GO 

| DELETE (GO 

| FORLST 

|F2 

|F5 

IF5A 

|F6 

|F6A 

|F6B 

|F7 

|LAB17B 

| LLDOIT 

[LOCATE (GO 

| MAP (GO 

[MKROOM 

| MR 

[READ (GO 

! SCAN 2 

| SCNS 
[STSCAN (GO 

IWRITE (GO 



. + . 



| Processes FORMAT statements. 

[Checks for use of COBOL files in READ, WRITE, and LOCATE statements. 

| Scans source text for GET and PUT statements. 

| Re-orders options to put EDIT, DATA, or LIST last. 

j Scans GET or PUT statement for data specification. 

[Copies a structure and places the copy on the COBOL chain. Sets up 
[text skeletons. 

j Removes an offending I/O statement and inserts an error statement in 
[the output text. 

| Expands iteration factors in format lists. 

[Creates and buys integer temporary. 

j Scans and outputs format item. 

j Sells temporary. 

| Tests for end of format list. 

[Tests for end of format specification. 

[Outputs end of format specification. 

| Scans format list. 

[Processes format list in GET or PUT statement. 

| Moves DO specifications to precede relevant list in data lists, adds 
[END statements. 

[Checks for the use of a COBOL file, and puts out a warning 
| diagnostic. 

[Compares the PL/I and COBOL and PACKED (NONSTRING) mappings of a 
structure. 

[Provides space in a statement in new source file. 

[Initializes text blocks and pointers, and obtains scratch storage. 

| If a READ IGNORE is encountered, no action is taken. If a READ SET 
|is encountered, a warning diagnostic is given. If a READ INTO for a 
structure is encountered, PL/ I and COBOL mappings are compared. 

[Scans option list for end of option or statement, expands DO speci- 
fications, and changes certain function markers into pseudo-variable 
[markers. 

j Scans option list for end of option or statement. 

[Stores the dictionary reference of the file and the INTO/FROM vari- 
able, and sets flags. 

| For structures, the PL/I and COBOL mappings are compared. 
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Table GK. Phase GK Pretranslator Parameter Matching 1 

r — t t— 

| (Main Processing | 

J Statement or Operation Type | Routine j 

H 

(Scans source text for function 
| markers 



Subroutines Used 



| BASCAN 



h _ 

(Processes function, puts out 
(reference and initial code bytes 



(CPSTMT, CRSTMT 
I 
-+- 



IBAFM 



(Processes arguments 

y 

(Checks numbers of arguments 

L . 



-+ 

I BALOOP 

"+ — 

(ARGNOQ 

_x 



1 SCANRP 
I 



|ADDTGT r SCNCRP 
. + 

(None 

-JL 



Table GK1. Phase GK Routine/Subroutine Directory 



j Routine/ Subroutine j 



Function 



ADDTGT 

ARGNOQ 

BABT3 

BACALQ 

BADELM 

BAFM 

BAFST 

BALOOP 

BALPQ 

BAMORE 

BANORM 

BAPVM 

BARECQ 

BARGFN 

BASCAN 

BASTOP 

CPSTMT 

CRSTMT 

SCANRP 

SCNCRP 



Adds data to output text. 
Checks number of statements. 
Tests for STOP marker- 
Outputs function and first bytes of argument list. 
Tests for end of argument list. 

Processes function, puts out reference and initial code bytes, 
Locates SETS list and parameter list for function. 
Processes arguments. 

Tests whether argument list is present. 
Accesses next argument in list. 
Sets STOP marker to scan argument. 
Examines pseudo- variable. 
Tests for nested function reference. 
Outputs warning message. 
Scans source text for function markers. 
Outputs argument. 

Adds closing bytes of a statement to output text. 
Adds first bytes of a statement to output text. 
Scans argument list. 
Scans argument. 
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Table GO. 

r — — — — 



Phase GO Preprocessor Parameter Matching 2 
| Statement or Operation Type 



T T _ 

(Main Processing | 
| Routine j 



Subroutines Used 



| Initialization and scratch core uti- JPMATCH 
|lization for Parameter Matching 2 | 

L „__. _. .__ . . . . X 



IPOLYMV 



Table GOl. Phase GO Routine/Subroutine Directory 



j Routine/Subroutine | 



Function 



(PMATCH [General initialization and scratch core utilization for Parameter 

| (Matching 2. 

I I 

|POLYM¥ [Moves the routines POLY1 , POLY2, P0LY3, POLY** and POLY5 into scratch 

| j storage (see Table GP) . 

L .__„__. . X. ._. — . . 



Table GP. Phase GP Pretranslator Parameter Matching 2 

r , . . . T T _„ 

Main Processing] 
Statement or Operation Type 



h 



Routine 



Subroutines Used 



Scans text for procedure and func- 
tion calls 



BS1 



h 



ADDTT r STKINF f UNSTCK 



h 



Examines argument lists for 
expressions 



BS4 



EXSCAN, Ml, M4, M16, SCANFR 



Creates temporaries for scalar ex- 
pressions and constants 



Ml 6 



h 



ADDTT, COPYTP, MKDCEN, SETBUY 



Creates temporaries for array 
expressions 



E2 



ADDTT, CHCKB1, COPYTP, MKDCEN, 
SETBUY 



Creates temporaries for partially 
subscripted array expressions 



E3 



h 



ADDTT, CHCKB4, COPYTP, MKDCEN, 
SETBUY 



H 



Creates special temporaries for 
partially subscripted arrays 



EX16 



, .__ _„ 

Checks single arguments (except 
structures) with parameter 
descriptions 



ADDTT, BS2, CHCKB4, CHECKT, C0PYT1, 
MKDCEN, STKINF, UNSTCK, Zll, 
SETBUY, SETMT 



H 



M4 



h 



CHECKT, M16 



Checks single structure arguments 



M5 
M21 



CHECKS, CSTTMP 



Creates temporaries for structure 
expressions 

i 

Creates temporaries for partially 
subscripted structure 



+- 



CSTMP2, MKDCEN, CHCKB4 , SETMT, 
ADDTT 



Z22 



h 



BS2, ADDTT 



h 



Compare the two arguments of the 
POLY function and create 
temporaries if the arguments are 
not both floating and do not have 
the same scale and precision 



POLY1, POLY2, 
POLY3 , POLY4 , 
POLY 5 



BS2 



Creates special dictionary entries 
for generic entry labels used as 
arguments 



M37 



None 
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Table GP1. Phase GP Routine/ Subroutine Directory (Part 1 of 2) 

Function 



r -T- 

l Routine/ Subroutine | 



-+- 



|ADDTT CGR) | 


IBSI 




|BS2 




|BS4 




[BS10 




|BS33 




I CHCKB1 


(GR) I 


|CHCKB2 


(GR) | 


|CHCKB3 


(GR) | 


(CHCKB4 


(GR) | 


|CHCKS1 


(GR) | 


| CHECKB 


(GR) | 


| CHECKS 


(GR) I 


| CHECKT 


(GR) [ 


| COPYTP 


(GR) | 


| COPYT1 


(GR) [ 


JCSTTMP/CSTMP2 (GQ) | 


|EXSCAN 


(GQ) I 


|EX16 (GQ> [ 


[EX36 (GQ} I 


|E2 CGQ) 




|E3 (GQ) 




[MKDCEN 


(GQ) | 


| Ml (GQ) 




|M2 (GQ) 




|M4 (GQ) 




|M5 (GQ) 




|M6 (GQ) 




|M10 (GQ} | 



Adds text to output block. 

Scans input text. 

Scans input text. 

Examines argument lists for expressions. 

End- of -program routine. 

Tests for constant argument. 

Compares the bounds of argument and parameter arrays, and creates 
new dimension tables for temporary arrays. 

Compares the bounds of argument and parameter arrays where the argu- 
ment is partially subscripted, and creates new dimension tables for 
temporary arrays. 

Creates a new dimension table from a parameter description. 

Creates new dimension tables for partially subscripted array and 
structures. 

Compares the structuring of argument and parameter structures. 

Compares the bounds of argument and parameter arrays. 

Compares structuring and data types of argument and parameter 
structures. 

Compares data types of arguments and parameters. 

Creates a temporary dictionary entry from a parameter description. 

Creates a temporary dictionary entry for a partially subscripted 
array from a parameter description. 

Create temporary structure dictionary entries. 

Scans expressions for arrays and structures. 

Creates temporary arrays for partially subscripted array arguments. 

Creates ci chameleon dictionary entry. 

Creates temporaries for array expressions. 

Creates temporaries for partially subscripted array expressions. 

Makes dictionary entries. 

Examines argument expressions. 

Examines single arguments with parameter descriptions. 

Compares single arguments with parameter descriptions. 

Examines structure arguments . 

Tests for structure parameter. 

Processes subscripted variable argument. 
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Table GP1. Phase GP Routine/Subroutine Directory (Part 2 of 2) 

Function 



r t" 

| Routine/Subroutine | 



h- 



Ml 2 


(GQ) 


Ml 3 


(GQ) 


Ml 4 


(GQ) 


Ml 6 


(GQ) 


M21 


CGQ) 


M22 


(GQ) 


M23 


(GQ) 


M24 


(GQ) 


M37 


(GQ) 


Ml 


(GQ) 


M4 4 


(GQ) 



[Creates a warning message, 

| Gets BUY text. 

| Processes scalar argument. 

(Creates temporaries for scalar expressions and constants. 

| Creates temporaries for structure expressions. 

(Processes data item parameter. 

[Processes label parameter. 

(Creates a structure temporary. 

[Creates dictionary entries for generic entry labels which are 

| arguments. 

| Error routine. 

| Processes dimensioned scalar argument. 

[Check the arguments to the POLY function and generate code to buy 
| temporaries, if the arguments are not both floating and do not have 
| the same scale and precision. 

j Scans for matching parentheses. 

Inserts skeletons to buy temporaries in the output text. 

| Sets temporary dictionary references in MTF compiler functions for 
[array and structure bounds. 

(Stacks information on encountering nested functions. 

| Tests for constant argument. 

[Unstacks information. 

(Generates text to set up the dope vectors of partially subscripted 
| array temporaries . 

[Generates text to assign the structure subscripts of partially sub- 
j scripted structures to temporaries , and then to set up the dope vec- 
[tor for the partially subscripted structure temporary. 



(POLY1, POLY 2, 
[POLY3, POLY4, 
| POLYS (all in GO) 

fSCANFR 

(SETBUY (GQ) 

ISETMT (GR) 

| STKINF 
| TESTC 
IUNSTCK 
Zll (GR) 

IZ22 (GR) 



Table GU. Phase GU Pretranslator Check List 



Statement or Operation Type 



[Main Processing! 
1 Routine 



Subroutines Used 



h 

| Scans statement; checks if preced- | BSCAN 

Jing SIGNAL statement is needed | 



JCALL, LIST, MOVE, SUOPQ 



h 

| Scans statements; checks if follow- |ASCAN 

|ing SIGNAL statement is needed | 

t + 

| Provides a SIGNAL CHECK statement | CALL 
k + 

(Searches list for checked items (SUOPQ 

L . -L 



None 



I GENTST 



(CALL, LIST 
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Table GUI. Phase GU Routine/Subroutine Directory 



r t- 

| Routine/Subroutine) 



Function 



ABGNDO 

AFM 

ASC 

ASCAN 

ASCL 

ASPECL 

ASTMT 

ATEST4 

ATEST5 

ATST3 

BENTON 

BPC 

BSCAN 

BSTMT 

BTEST3 

BTEST4 

BVARNO 

CALL (GV) 

CALLBA (GV) 

CALLEX (GV) 

CALLIF (GV) 

CALSTM (GV) 

CALSYM (GV) 

GENTST 

LIST (GV) 

MOVE 

SUOPQ (GV) 



Sets IF-switch for THEN or ELSE clause. 

Signals checked items in argument list. 

Tests statement identifier and takes action if necessary. 

Scans statements; checks if following SIGNAL statement is required. 

Examines statement dictionary entry. 

Examines statement dictionary entry which is not a label. 

Housekeeping for end of statement. 

Tests for argument list. 

Tests for THEN. 

Tests for end of statement. 

Test whether argument list contains checked item. 

Processes "possible check" statement. 

Scans statement,* checks if preceding SIGNAL statement is required. 

Tests whether SIGNAL statement may be needed after statement output. 

Tests for end of statement. 

Tests for argument list. 

Tests for END statement. 

Outputs SIGNAL statement for checked item. 

Tests whether SIGNAL precedes or follows statement responsible. 

Exit from subroutine CALL. 

Tests whether DO statement must be output. 

Re-outputs overwritten statement after DO statement. 

Outputs SIGNAL statement. 

Checks space in output text block. 

Updates and searches list of currently checked items. 

Moves text from source to output. 

Searches list for checked items. 
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Table HF. Phase HF Pretranslator Structure Assignment 

I r T — 

Main Processing | 
Statement or Operation Type 



h 



Routine 



+- 



Subroutines Used 



-H 



Scans text for structure assignment 
Statements, regions of nested sta- 
tements, output list expressions, 
and structure references in input 
lists 



MR 



BYNAME, GENTST, LSTSCN, MOVE, 
NSTSCN, STRASS, STREXP, STRURE 



h 



Expands structure assignments and 
expressions into a set of scalar 
assignments or expressions corres- 
ponding to the base elements of the 
structure operands. Where the base 
elements are arrays, the corres- 
ponding component expressions or 
assignments are surrounded by 
appropriately iterating DO groups 

, 

Scans regions of nested statements 
for structure assignments 



BYNAME, STRASS, 
STREXP, STRURE 



DVCON, GENTST, LSTSCN, MOVE, 
NSTSCN, SBGN 



NSTSCN 



MOVE, NSTSCN, STRASS 



h 



Adds text to the output string 



MOVE 
GENTST 



GENTST 



h 



Determines space availability in an 
output text block 



MOVE 



h 



Scans function argument and sub- 
script lists 



LSTSCN 



MOVE, NSTSCN 



Constructs DO statements and checks 
bound equivalence 



DVCON 



GENTST 



h 



Constructs subscript lists for 
references to dimensioned structure 
base elements 



SBGN 



GENTST 
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Table HF1. Phase HF Routine/ Subroutine Directory 



r t- 

| Routine/Subroutine | 

h 



Function 



BYNAME (HG) 

BYN1 (HG) 

BYN11 (HG) 

BYN13 (HG) 

DVCON (HG) 

GENTST 

LSGET 

LSTSCN 

LS21 

LS23 

MOVE 

MR 

MRBYN 
MRTRT 
NSTSCN 
SADRAB (HG) 
SAEND (HG) 
SAOP (HG) 
SATRT (HG) 
SAX1 (HG) 
SA20 (HG) 
SA32 (HG) 
SA36 (HG) 
SA73 (HG) 
SA79 (HG) 
SBGN 

STRASS (HG) 
STREXP (HG) 
STRURE (HG) 



Expands BYNAME structure assignments. 

Searches for matching BCDs down to base elements. 

Returns to start of current output assignment statement. 

Test for matching BCDs . 

Constructs DO statements, checks bound equivalence. 

Determines space in output text block. 

Tests for GET statement. 

Scans subscript arguments and subscript lists. 

Tests for structure item in data specification. 

Tests for data- directed data specification. 

Adds text to output string. 

Scans text for structure assignment statements, nested statements, 
output list expressions, and structure references in input lists. 

Tests for BY NAME assignment statement. 

Scans sottrce text for structures. 

Scans regions of nested statements for structure assignments. 

Builds up stack to show pattern of structure. 

Tests whether END statements need to be output. 

Examines dictionary reference found. 

Scans structure expression or assignment. 

Tests whether item matches the stack pattern. 

Tests for start of structure expression. 

Outputs base element and replaces it in source text. 

Tests for BY NAME assignment statement. 

Outputs END statements. 

Resets scan pointer to start of expression/assignment. 

Constructs subscript lists for references to dimensioned structure 
base elements. 

Expands structure assignments into DO loops. 

Expands structure expressions. 

Expands structure references. 
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Table HK. Pretranslator Array Assignment 



_ T T _ 

[Main Processing) 
| Routine i 



Statement or Operation Type 



Subroutines Used 



Scans text for array and scalar 
assignment statements 



[MR 



JNone 



Scans text for nested array and |MR 
scalar assignment statements | 



I NESTAT 



-H 



Scans text for array expressions in | MR 
I/O lists in GET and PUT statements] 



j ARRASS, LSTSCN 
I 



I Expands arrays into DO loops and 
[scalar assignments; checks dimen- 
sions and bounds 



I ARRASS 



(FRETMP, MDE, OPTST, SLGCH, SUBSKP 



Table HK1. Phase HK Routine/Subroutine Directory 



r . — T - 

| Routine/Subroutine | 



Function 



Examines leftmost operand. 

Tests for multiple assignment. 

Checks pseudo-variables. 

Scans array expression. 

Expands arrays into DO loops and scalar assignments; checks dimen- 
sions and bounds. 

Generates DO loops and subscripts for array references. 

Entry point for array expressions in input lists. 

Entry point for array expressions in output lists. 

Generates a SELL statement for temporaries bought in the current 
statement. 

Scans I/O lists for possible array expressions. 

Makes a temporary dictionary entry. 

Scans text for array and scalar assignment statements, for nested 
array and scalar assignment statements, and for array expressions in 
GET and PUT statements. 

Tests for end of text. 

Scans text. 

Scans nested statements. 

Tests any given operand. 

Generates and checks subscript lists. 

Inserts subscripts in expanded array position. 

Skips a subscript or subscript list. 



AADOP 


(HL) 


AAMULA 


(HL) 


AA3 (HL) 


AETRT 


(HL> 


ARRASS 


CHL> 


ARREXP 


(HL) 


ARRIN 


(HL) 


ARROUT 


(HL) 


FRET MP 




LSTSCN 




MDE 




MR 





MREOP 

MRTRT 

NESTAT 

OPTST 

SLGCH 

SLMCG 

SUBSKP 
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Table HP. Phase HP Pretranslator iSub Defining 

r 

Statement or Operation Type 



| Scans source text for references 
[defined by iSUB 



j. .. + 

(Processes references defined by (DEFSUB 
|iSUB 1 



T . T 

(Main Processing! 
I Routine | 

+ + 

| MASCAN j MOVE 

i 



Subroutines Used 



JGENTST, MOVE, SULIST f SUMOVE 



| Scans subscripts 



-+ 

[None 



1 SUMOVE 

| Cin SULIST) 

-X . 



Table HP1. Phase HP Routine/ Subroutine Directory 



r T - 

| Routine/ Subroutine | 
h „ + . 



Function 



DEDONE (Resets pointers to scan first subscript list. 

DEEND2 (Creates and buys temporary. 

DEFSUB (Processes references defined by iSUB. 

DEGBD1 (Tests for end of second subscript list. 

DENEXT (Outputs first-list subscript and tests for end of list. 

DENGUB (Tests whether dictionary reference is constant or integer variable. 

DERCUR (Stacks parameters for recursive entry to DEFSUB. 

DERETN (Returns zo MASCAN or SUSCAN. 

DETEMQ (Tests whether second-list subscript is simple dictionary reference. 

GENTST (Checks space in output text block. 

INIT (Initializes text blocks and pointers, gets scratch storage. 

MASCAN | Scans source text for references defined by iSUB. 

MOVE (Moves text from source to output. 

SULIST (Scans subscript lists. 

SUMOVE (Scans subscripts. 

SUSCAN (Scans subscript. 

SUSUBS (Replaces iSUB by corresponding subscript or temporary. 
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TRANSLATOR PHASE TABLES 



Table IA. Phase IA Translator Stacker 

r , T _ 



Statement or Operation Type 



| Main Processing) 
Routine 



h 

| Scans source text 

j. ._ 

| Compares transfer vector 



Subroutines Used 



I ESCAN 



[None 



-H 



I EACTNC 



h 

| Stacks transfer vector 

| 

(Generates triples 



JECOO to EC10 



| EACTNS 

"+ 

1 EGENR 



JESOO to ES2E 
-+ 

|EGENR2, EGENR3, ENEWBL, ENOREP, 
|EREPL, ETRBMP 

_x__ . 



-H 



Table IA1 - Phase IA Routine/Subroutine Directory 



j Routine/Subroutine) 



Function 



| EACTNC 

| EACTNS 

|EC00 to EC10 

| EGENR 

| EGENR 2 

| EGENR3 
| ENEWBL 
| ENOREP 

| EREPL 

[ESCAN 

i ESTCAC 

|ES00 to ES2E 

I ETRBMP 



| Compares transfer vector. 

| Stacks transfer vector. 

j Provide comparison action for each operator. 

(Generates triples. 

(Generates triple for top stack operator, with blank first operand, 
[then deletes the operator from the stack. 

(Generates triple with two blank operands. 

| Obtains and chains new text block for output, resets output pointer. 

[Deletes top stack operator, flags new top operand as the result of 
j the triple just generated. 

| Replaces top stack operator by its prime, to indicate end of a list 
j of function arguments or subscripts. 

I Scans source text. 

j Places operand in stack. 

[Handle stacking of operators. 

Increments output point over one triple if end of text block is 

I found. 
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Table IG. Phase IG Translator Pre-Generic 

r ■ — t" 



Statement or Operation Type 



| Scans text for BUY aggregate argu- 
ment dummies, end-of- block, and 
I end-of-program triples 



Main Processing | 
Routine | 



Subroutines Used 



GS1 



(Obtains next text block 



(FR, BR f TRFl f GS12 

I 

I 



I— 

[Transfers text to output block 

h 

h 



GS12 
TRF1 



(None 

~+ 

I None 



| Transfers text skeletons to output 



TRF2 
FR, FRP 



|GS1, TRF1 

-+ 

1 None 



(Stacks and unstacks information on 
| encountering function and function 
(triples 
h 



[Inserts assignment statement for 
(aggregate argument dummies 



BR 



|GS1, TRF2 

i 
-JL . 



Table IG1. Phase IG Routine/Subroutine Directory 



r _ T _ 

| Routine/Subroutine ( 



Function 



i— 

| BR 

I 
|BR1 

I 
|BR2 

I 
IBR3 



IBR4 



I 

V 

I 

|FR, FRP 

I 
I 

|GS1 

I 
t 
|GS12 

I 
|TRF1 

I 
|TRF2 



-+- 



Inserts assignment statements for aggregate argument dummies. 

Transfers point for IGNORE triple. 

Inserts assignment into text. 

Makes new dictionary entry for temporaries. 

Processes second BUY. 

Stack and unstack information on encountering function and function' 
triples. 

Scans text for BUY aggregate argument dummies, end- of -block, end-of- 
program triples. 

Chains to next text block on encountering an end of block marker. 

Transfers text to the output block. 

Transfers text skeletons to the output block. 
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Table IK. Phase IK Translator Pre-Generic 



Statement or Operation Type 



(Initializes phase and obtains text 
1 block storage for routine GNEOP 
| (called by main generic phase), for 
(translate table SCTRT used by the 
(expression analyser and for nested 
I function stack 



Main Processing 
Routine 



Subroutines Used 



ENTER 



None 



|. 

[Moves routine GNEOP , and table 
| SCTRT into text block storage 



— I 



MOVETT 



None 



, 

[Loads Phase IL and transfers con- 
jtrol to it 



LOAD I L 



None 



Table IL, Phase IL Translator Pre-Generic 

r . T . 



Initializes phase, gets scratch 
storage and sets pointer to func- 
tion table 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



BEGIL 



None 



h 



Moves function table into scratch 
storage and sets pointer to nested 
function stack area 



BASROU 



None 



h 



Loads modules IM and IN and sets 
base for expression analyzer code 

| 

Gets text block storage for use by 
Phase IM. Sets pointer to it. 
Moves constants into scratch 
storage and sets pointer to first 
constant. Transfers control to 
Phase IM 



BEGIN 
GET EXT 



None 



None 



Table IM. Phase IM Translator Generic 



-T T 

| Main Processing | 
| Routine j 
_ + - + 

(GNFUNC JGNXTRP 



Statement or Operation Type 



Subroutines Used 



(Selects function for processing 



| Selects generic procedure (GNPLIG 
, + 

(Selects generic Library routines; (GNBIFH 
| determines function result | 



(GNDRTA, GNXTRP, GNFMID 
_ + 

(GNARID, GNCBEF, GNCACI, GNCTBI, 
(GNGNCR, GNPRSC, GNSACH, GNSAPC, 
(GNSBAR, EXPANL, GNSAPR, GNSBRT, 
(GNSFMS 

.+ 

(GNXTRP, EXPANL 



> + 

(Selects chameleon dummy and ins erts | GNCHAM 
| it in relevant dictionary entry | 



-H 



(Controls scan of text — 
| to processing routine 

L . 



branches | EXPANL 



(ARITH, LST1, SUBSPT, ASSIGN 
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Table IM1. Phase IM Routine/Subroutine Directory (Part 1 of 2) 

Function 



r t- 

| Routine/Subroutine I 



I— 



ARITH (IN) (Calculates type of result of arithmetic operation (except **). 

ASSIGN (IN) (Returns to calling phase with result, 

EXPANL (IN) (Controls scan of text — branches to processing routine • 

GNARID (IP) (Identifies argument of built-in function and converts it to valid 
(type, if possible. 

GNBIFH (IP) | Selects generic Library routine! determines function result, 

GNB08 (IP) | Selects relevant family member. 

GNB16 (IP) | Sets up result type of a built-in function. 

GNCACI (Checks and converts a decimal integer. 

GNCBEF j Standardizes argument code byte to a form for generic selection. 

GNCHAM [selects chameleon dummy and inserts it in relevant dictionary entry. 

GNCTBI (Converts from decimal to binary, 

GNDRTA (Analyzes dictionary type. 

GNEND | Forms pointers and branches to routine GNEOP in text block storage. 

GNEOB (Processes en d-of- block marker. 

GNEOP I End of program routine. Frees blocks and releases control. 

GNFMID (IQ) | Identifies family member. 

GNFUNC (Selects function for processing. 

GNF04 (Checks for nested function situation. 

GNF027 (Sets up result type of a PL/I function. 

GNFM3 (IQ) (Replaces original reference in text. 

GNGNCR (General conversion routine. 

GNL06 (IQ) | Forms entry relating to particular invocation. 

GNPLIG (IQ) j Forms table of family member descriptions. 

GNPRSC (IP) (Selects highest raode f scale and precision of variable argument list. 

GNSACH (Performs special argument check. 

GNSAPC (Calculates scale and precision of a function result. 

GNSAPR (Processes SUBSTR function and pseudo- variable arguments. 

GNSBAR (Handles a subscripted argument. 

GNSBRT (IP) j Examines all three arguments of SUBSTR and calculates the resulting 
(type exactly. 

GNSFMS (IP) (Replaces references to SUBSTR in text by reference to another entry 
(giving detailed information about the arguments. Places a descrip- 
tion of the resulting string in the text. 



Section 3: Program Organization 121 



Table IM1 . Phase IM Routine/Subroutine Directory (Part 2 of 2) 



(Routine/ Subroutine | 



Function 



.+„_„__ „„_„ _ 

[GNTRID | Scans source text. 

I I 

[GNXTRP | Gets next triple. 

I I 

|LST1 (IN) [Calculates type and length of result of string operation. 

I I 

JSUBSPT (IN) (Adds type of array to stack. 

L_. _—_„____ . X ._. .___ - — « . . _ 



~ 1 



Table IT 
r— — 



Phase IT Post-Generic Processor 
Statement or Operation Type 



(Scans source text 



+- 



Main Processing! 
Routine 



Subroutines Used 



PGTXSC 



| PGT01 f PGEOB , PGEOP 



(Analyzes type of function detected 



PGFUNC 



(None 



(Completes function handling 



— 1 



PGFNCP 



(Detects s chameleon" temporary 
(references and deletes BUY and BUYS 
(triples where possible 



_ + . 



( PGNEXT 



PGBUYS 



( PGBUY 



j__ „ ___. .„_____ 

(Deletes 'chameleon 1 reference in an 
( assignment triple and alters the 
(argument triple to indicate an 
( intermediate result 



— 1 



PGPASS 



[None 



h 

(Deletes all other references to 

( s chameleon* temporaries where 

[applicable 

L„_„__— — — — ._- -— .___ .__„__- 



+- 



PGFNCM 



|PGBYAS r PGSELL 

I 

I 



Table IT1. Phase IT Routine/Subroutine Directory 

j—— — -.„___- .___ — T . — _ — - — . — . . . — 

(Routine/Subroutine | Function 



PGASS 
PGBYAS 

PGBUY 
PGBUYS 
PGEOB 
PGEOP 

PGFNCM 

PGFNCP 
PGFUNC 
PGNEXT 
PGS ELL 
PGTXSC 
PGT01 



Deletes 'chameleon 1 assignments. 

Processes 'Buy Assignment 1 triples. 

Processes BUY triples. 

Processes BUYS triples. 

Deals with End of Text Block conditions. 

Processes end of program marker. 

Replaces "chameleon* reference by an intermediate result where 
applicable. 

Processes function prime marker. 

Analyzes function, and determines the type of processing required. 

Gets the next triple in source text. 

Processes SELL triple. 

Scans text. 

Determines action to be taken for a significant triple. 
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Table IX. Phase IX Pointer and Area Checking 
r 



T — . -„ — -- - T - 

|Main Processing) 
J Routine j 



Statement or Operation Type 



Subroutines Used 



._, 



I Main scan routine 



I BUMP 
-i . 



| TEST, ERASER 

_JL . 



Table 1X1. Phase IX Routine/Subroutine Directory 



j Routine/Subroutine | 



Function 



| BUMP 

I 
(TEST 

I 

| ERASER 

L 



j Scan routine. 

I 

(Tests operands for pointer and area data types 



I 



i Processes bad statements. 



Statement of Operation Type 



Subroutines Used 



Table JD. Phase JD Constant Expression Evaluator 

r ' ■ t ■ — * — t — — — 

| Main Processing | 

I Routine j 

j. ._ _ + _ _+_____ __ 

(Initializes phase, gets scratch, | INIT1 (None 

I etc. I 1 

, _ + _. -_ + „. ___ _ 

(Scans text, for constant triples (SCANT (MORTXT, PREFIX, CONCAT 



| Handles stacking/un stacking of 
| operands 



I STAKOP 



I UNSTAK 



I 



Table JD1. Phase JD Routine/ Subroutine Directory 

r • r ' ■ — — 

( Routine/ Subroutine | 

L + - „ __„ __ _ 

| CONCAT | Detects constant string operands, performs concatenation, makes new 

(disk entry, and puts ref. in a slot for stacking. 

| INIT1 (Gets scratch core for the stack, initializes slots and switches. 

I MORTXT (Gets next text block, resets pointer. 

(OUT (Puts out error message and aborts compilation if stack is not 

| emptied. 

(PREFIX | Detects unary prefixed constant, makes new list entry and puts ref. 

(in a slot, for stacking. 

| SCANT (Main scan routine. 

| STAKOP (Push down stack handler. 

[TRYFLAG (Tests if stack is full, and if so, aborts. 

S UNSTAK (Moves entry from the stack. 

[UPTXT (Updates text pointer. 

(WTNDUP (Releases scratch core and returns control to the control phase. 



Function 
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AGGREGATES PHASE TABLES 



Table JI. Phase JI Aggregates Structure Processor 

r T . T 

Main Processing 
Statement or Operation Type 



h 



To re-order the STATIC AUTOMATIC 
and CONTROLLED chains and to pro- 
cess structures 



Routine 
SCANA 



Subroutines Used 



MAP, MAP A 



h 



To scan down the COBOL chain for 
COBOL-mapped structures 



SCAN 



MAP 



To transfer items from the COBOL 
chain to the appropriate AUTOMATIC 
chain 



RECHAN 



None 



To transfer control from IEMTJI to 
IEMTJM 



TERMIN 



None 



To map COBOL structures 



MAP 



NXTRF1,NXTRF2 



h 



To check non-COBOL structures for 
constant length 



MAPA 



None 



To find the next member of a 
structure 



NXTRFI 



None 



To find the next element of a 
structure 



NXTRF2 



None 



Table JI1. Routine/ Sub routine Directory 



r T _ 

1 Routine/Subroutine | 



Function 



j MAP 

I 

| MAPA 

I 

j NXTRFI 

I 

| NXTRF2 

I 

| RECHAN 

t 
I 
j SCAN 

i 

( SCANA 

I 
I 
l TERMIN 



I 



To map COBOL structures 

To check non-COBOL structures for constant length 

To find the next member of a structure 

To find the next element of a structure 

To transfer items from the COBOL chain to the appropriate AUTOMATIC 
chain 

To scan down the COBOL chain for COBOL-mapped structures 

To reorder the STATIC, AUTOMATIC, and CONTROLLED chains and process 
structures 

To transfer control from IEMTJI to IEMTJM 
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Table JK. Phase JK Aggregates Structure Processor 
Statement or Operation Type 



T . T . 

Main Processing 
Routine 



Scans AUTOMATIC, STATIC, and 
CONTROLLED chains 



Subroutines Used 



CHNSCN 



ADRDV f CHKDEF, MKDVD, MKRDV, 
PROCDT, PROCST, SETBRF, TERMWS 



Processes DEFINED items 



CHKDEF 



CMP I LI, INOBJ, PROCDT, PROCST, 
STBASE 



Processes structures (calculates 
offsets, multipliers, sizes, align- 
ments and padding? generates object 
code) 



PROCST 



CMPIL1, INOBJ, ELSIZ 



Processes arrays (calculates multi- 
pliers and generates object code 



PROCDT 



CMPIL1, INOBJ, LOADCN, SP54 



h 



Calculates storage offsets for 
adjustable items in structures 



PS25 



CMPIL1 



Calculates storage offsets for 
adjustable arrays 



ALVACA 



CMPIL1 



h 



Calculates storage offsets for 
adjustable strings 



ALVACI 



CMPIL1 



H 



Generates code to initialize string 
dope vectors for arrays of varying 
strings in structures 



SVARY 



CMP I LI, INOBJ, IPDV, VOBJC 



_| 



h 



Generates code to initialize string 
dope vectors for varying, non- 
structured arrays 



VOBJC 



CMPIL1, INOBJ, IPDV 



Generates code to calculate the 
starting address of storage for 
overlay defined items 



STBASE 



CMPIL1 



Adds text skeletons to the output 
stream 



CMPIL1 



None 



Makes dictionary entries for dope 
vector descriptions 



MKDVD 



ELSIZ 



h 



Makes dictionary entries for record 
description vectors 



MKRDV 



MKCNST, CMPIL1 



Generates code to set the address 
in a record description vector at 
object time 



ADRDV 



INOBJ, CMPIL1 



Calculates the length and alignment 
of scalar data items 



ELSIZ 



None 



h 



-+ 

[None 

-X 



Sets offsets for BASED variables 



I BASED 
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Table JK1. Phase JK Routine/Subroutine Directory 



j Routine/Subroutine j 
± + 

ADRDV (JL) 
ALVACA CJL) 
ALVACI CJL) 
BASED 

CHKDEF (JM) 
CMPIL1 (JL) 
ELSIZ 
INOBJ (JL) 
IPDV (JM) 
LOADCN (JL) 

MKDVD 

MKRDV (JM) 

NXTREF/NXTRFl (JM) 

PROCDT (JM) 

PROCST 

PS25 

CHNSCN (JL) 

SETBRF (JL) 

SETDVS 

SP54 

STBASE (JM) 

SVARY (JL) 

TERMWS (JL) 
VOBJC (JL) 



Function 



Generates addressing code for AUTOMATIC RDVs. 

Calculates storage offsets for adjustable arrays. 

Calculates storage offsets for adjustable strings. 

Sets offsets for BASED variables. 

Processes DEFINED items. 

Adds text skeletons to the output stream. 

Determines size of storage required for structure base elements. 

Initializes object code statements. 

Generates code to set up primary dope vectors. 

Generates object code to load object registers with constants known 
at compile time. 

Makes dictionary entries for DVDs. 

Makes dictionary entries for RDVs. 

Gets the next structure base reference. 

Processes arrays. 

Processes structures. 

Calculates storage offsets for adjustable items in structures. 

Scans AUTOMATIC, STATIC, and CONTROLLED chains. 

Sets the reference to the current entry type 1- 

Sets the dynamic dope vector size for non-adjustable structures. 

Calculates base element multiples. 

Generates code to initialize starting address storage for overlay 
defined items. 

Generates code to initialize string dope vectors for arrays of vary- 
ing strings in structures. 



Terminates object code. 

Generates code to initialize string dope vectors for varying, non- 
structured arrays. 
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Table JP. Phase JP Translator Defined Check 



j T *, — . T . . . . 

| | Main Processing | 

I Statement or Operation Type | Routine | Subroutines Used 

(Scans DEFINED chain; checks | IEMT JP (GETCLS, GETLTH, STRCMP 

(validity | | 

[Checks that two structure descrip- (STRCMP (None 
(tions are the same and that they ( | 

(may be validly overlaid | j 

i . . . . . ._ x . . x . . . . 



Table JP1. Phase JP Routine/Subroutine Directory 

r r ' " ' ■ 

| Routine/Subroutine | 



Function 



GETCLS 

GETLTH 

IEMJP 

JP8 

JP20 

JP200 

JP540 

JP541 

JP542 

JP543 

STRCMP 



Analyzes structure descriptions, and checks that all elements are of 
the same defining class. 

Obtains length of string or numeric field from associated dictionary 
entry. 

Controlling scan of DEFINED chain; checks validity. 

Tests whether defined item is packed. 

Tests whether base defined item is adjustable. 

Tests whether item is a structure. 

Tests whether defined item is coded arithmetic. 

Compares base and defined item. 

Tests whether defined item is dimensioned. 

Tests whether base code is arithmetic. 

Compares structure descriptions. 
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OPTIMIZER PHASE TABLES 



Table KA. 
r 



Phase KA Resident Control Module 



"T T ' 

(Main Processing! 
| Routine | 
- + _ + 

(KAHBLD [ZTXTAB, KAHLOK r KAHULK, ZUTXTC, 

| J KAHERR 



1 



Statement or Operation Type 



Subroutines Used 



| Handles KTAB BLDC/T operations 



h 



| Handles KTAB DR operation 

| 

[Handles KTAB ULDR operation 
h 



I KAHMDR 



(KAHERR, ZTXTAB r ZALTER, KAHULK 
„ + _ 

I KAHULK 



I KAHUDR 



[Handles KTAB DEACT operation [KAHDAC 
J + 

(Handles KTAB FREE operation | KAHFRE 

h 



| KAHULK 



| KAHERR, Z ALTER 



[KAHSCN 
I 



[Handles KTAB SCAN operation for 

|non-text tables 

j. „. 

[Handles KTAB SET/SET Z operations [KAHSET 

|. + 

[Place save area stack, DTCAs and [KBSTUP(KB) 
[block list table in scratch storage | 

i . x . . 



j KAHERR, KAHLOK, ZTXTAB, KAHULK 



j KAHERR, KAHULK 



—I 



[None 



Table KA1. Phase KA Routine/Subroutine Directory 



r t- 

[ Routine/Subroutine | 



Function 



KAHBLD 
KAHDAC 
KAHERR 
KAHFRE 
KAHLOK 
KAHMDR 
KAHSCN 
KAHSET 
KAHTXT 
KAHUDR 
KAHULK 
KBSTUP (KB) 



Handles KTAB BLDC/T operations 

Handles KTAB DEACT operation (non-text tables) 

Produces error message and aborts 

Handles KTAB FREE operation 

Locks a table entry 

Handles KTAB DR operation (non-text tables) 

Handles KTAB SCAN operation (non-text tables) 

Handles KTAB SET/SETZ operations (non-text tables) 

Handles all KTAB operations on text tables 

Handles KTAB ULDR operation 

Unlocks a table entry 

Places save area stack, DTCAs and block list table in scratch 
storage 
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Table KC. Phase KC DO-Loop Specification Scan 



-T- ' T" 

|Main Processing) 
J Routine j 



Statement or Operation Type 



Subroutines Used 



| General text scan 

j. 

| Sets ON mask for ON unit 
j. 

[Initializes reordering scan after |DOLOOP 

[ITDO triple | 

l . „ + . 

[Analyzes expression in loop speci- [EXANAS 

[fication | 

j. . x 

(Scans for ITDO nested in loop (RSCAN 

[specification | 

k „. x 

(Completes reordering scan at end of [CVEND 
(loop specification | 

L . . X- 



| NXTRP 

-+— 

[ONBLK 

-+- 



[SCAN (KA), DOLOOP, ONBLK 
.x 

[SCAN (KA> 



[SCAN (KA), EXANAS, CVEND, MOVE, 
| MOVER 



[SCAN (KA), MOVER, RSCAN 



~ +- 



[SCAN CKA), MOVER 



|SCAN (KA), RSCAN, MOVER, MOVET 



I 
-X- 



Table KC1. Phase KC Routine/Subroutine Directory 
| Routine/ Subroutine | Function 



1 CVEND 

i 

| DOLOOP 

I 

l EXANAS 



I 



| MOVE 

I 

I MOVER 

I 
[MOVET 

I 
[MXTRP 

I 
[ONBLK 

I 
[RSCAN 

I 

| SCAN (KA) 



Completes reordering scan at end of loop specification 

Initializes reordering scan after ITDO triple 

Analyzes expression in loop specification 

Puts triple into MOVE list 

Puts triple into REORDER list 

Moves REORDER list into text 

General text scan 

Sets ON mask for occurrence of ON unit 

Scans for ITDO nested in loop specification 

Scans text 



Table KE. Phase KE Dictionary Scan and DO-Map Build 

I " T ' T" 

| [Main Processing! 

| Statement or Operation Type j Routine j 



Subroutines Used 



| Initialization 



IKEINIT 



|KCDS, KESCAN, HTAB 



[Dictionary scan marking unsafe 
| variables 

L_ 



IKCDSIN 



jflTAB, ZDICRF, ZDRFAB, ZDABRF 



— I 



[Scans text and passes control to [KESCAN 
[triple processing routines | 

i x . 



IKTAB 
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Table KE1. Phase KE Routine/Subroutine Directory 

Function 
Dictionary scan marking unsafe variables 
| Creates a DO-Map entry 
| Completes the DO-Map entry 

[Produces termination error message and aborts 
I Initialization 

| Scans list of procedures and pointers 
| Scans text calling triple processing routines 
| Makes entry in stack 



r t 

| Routine/Subroutine | 

i 

JKCDSIN 

I 

| KECDME 

I 

JKEDEND 

I 

| KEERRH 

I 
|KEINIT 

I 

| KELKUP 

I 

|KES CAN 

I 

I KESTCK 



Statement or Operation Type 



(Main processing routine 



T T - 

| Main Processing | 
| Routi ne | 



Subroutines Used 



i x . 

Table KG, Phase KG DO-Examine Phase 
r 



-H 



[ KGMAIN 



h 



(KGSCAN, KGSRGL, KGSORT, KGUSEN 



(Tests whether an ON-unit could be (KGOTST 
(entered as a result of an interrupt) 
(occurring at the triple being | 
(considered | 
^ + 

(Transfers control to appropriate |KGSCAN 

(triple routine | 

I. + 

(Considers a variable for entry into|KGUSEL 
(the USE list ( 

L . . J. 



j KGSRGL 
I 



(KGERRR 
I 



I KGUSEN 



Table KG1. Phase KG Routine/Subroutine Directory 



| Routine/Subroutine j 



Function 



| KGDELT 
| KGDELU 
| KGERRR 
| KGMAIN 
| KGNICE 

(KGOTST 

| KGSCAN 
| KGSORT 
| KGSRGL 
| KGUSEL 
I KGUSEN 



j Deletes non-compiler-created temporaries from USE list 

| Deletes unsafe variables from USE list 

[Produces a termination error message and aborts 

[Main processing routine 

j Checks that a dictionary reference is for a real fixed binary scalar 
[integer variable 

| Tests whether an ON-unit could be entered from the triple being 
| considered 

[Transfers control to appropriate triple routine 

j Sorts the USE list so that invariant variables appear first 

[Makes an entry in the SUBS/REGION list 

[Considers a variable for entry into the USE list 

(Makes an entry in the USE list 
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Table KJ. Phase KJ Subscript Table Build 

, . — . __. .- — . T 1 

| (Main Processing | 

[ Statement or Operation Type I Routine | 



Subroutines Used 



. + 

(KJSRBXCH, KJSRCHKP f KJSRSOPC, 

(KJSRTDED, ZDRFAB, KTAB 

I 

I 

-X . 



(To build the SUBS TABLE from the |KJSB 
| Subs/Region List and test the loop | 
[initial, step, and limit for use in( 
|BXLE and BXH code 1 

L . .. . X 



Function 



Table KJ1. Phase KJ Routine/ Subroutine Directory 

r ■ ■ — t 

| Routine/Subroutine | 

, + „ 

IKJSB (Builds SOBS TABLE from Subs/Region List and tests the loop initial, 

j step, and limit, for use in BXLE and BXH code 

IKJSRBXCH (Checks tnat current loop is optimizable for BXLE, BXH loop control 

| code 

[KJSRCHKP | Sets a series of flags stating the attributes of the expression 

(being analyzed 

IKJSRSOPC (Sets a series of flags stating the attributes of a given triple 

| operand within the context of the expression analysis 

IKJSRTDED (Sets the target DED in the dictionary entry for a constant to be 

j used in BXLE/BXH code. If necessary, new data dictionary entries 
j are created and the reference in text modified. 

(KJSRUSEL (Searches the given USE list for a given variable 

[KODECN | Tests a given dictionary entry for a REAL, FIXED, BINARY, SCALAR, 

(INTEGER variable, or a BINARY or DECIMAL INTEGER constant 

(KONICE (Tests that a given variable is REAL, FIXED, BINARY, SCALAR, INTEGER 

IKOPRSN | Tests if a given dictionary reference is: 

|1. a variable of precision less than 30 bits or 

(2. a decimal constant of precision less than 8 digits or 

(3. a binary constant of less than or equal to 30 bits 
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Table KN. Phase KN Subscript Optimization 



I— 



h 



Statement or Operation Type 



'T T 

Main Processing 
Routine 



-i 



— +■ 



Sets up the physical phase KN data 
area, KNDATA in scratch storage. 
KNCODE, which is a group of lower 
level subroutines, is also moved 
into scratch storage. The scratch 
storage area is provided by KA. A 
scan is made of the chain of DO-map 
entries, and subroutine KNCLOF is 
called for each to remove offsets, 
and prepare potentially optimizable 
subscripts for matching. 



KNINIT 



Subroutines Used 



KNCLOF 



h 



Scans the subs entries of the subs- 
region table for the loop. It 
cleans up potentially optimizable 
code, removes offsets, accumulating 
the total offset in the spare 
operand of the appropriate subs 
triples, and calculates hash values 
for optimizable COMA's. 



KNCLOF 



KNCOMU, KNHASH, KNANAL, KNOPTY 



Accumulates hash total and computes 
hash for specified triple. 



KNHASH 



h 



Analyzes the type of triple operand 
and sets a return code value 
accordingly. 
| _ 

Analyzes the type of triple operand 
and sets a return code value 
accordingly. 



KNANAL 



None 



+ " 

ZDRFAB 



KNOPTY 



ZDRFAB 



t- 



Converts a decimal constant to 
binary and multiplies it with a 
given binary value. An option may 
be specified to allow conversion 
only of the given decimal constant 
to binary. 



KNCOMU 



ZDRFAB 



Table KN1. Phase KN Routine/Subroutine Directory 

i — , — . j. . , — . . . — 

j Routine/Subroutine ( Function 

i. + ^ 

(Analyzes type of triple operand and sets a return code value 
| accordingly. 

| Scans subs entries of subs-region table for loop. Cleans up poten- 
jtially optimizable code, removed offsets, and calculates hash values | 
| for optimizable COMA's. 

| Multiplies decimal and binary values. 

[Accumulates hash total and computes hash for specified triple. 

| Sets up code and data areas in scratch storage, and scans chain of 
j DO-map entries, calling KNCLOF to remove offsets. 



I KNANAL 



I 

| KNCLOF 

I 
I 



I 



[KNCOMU 

t 
(KNHASH 

I 
KNINIT 



| KNOPTY 
L 



j Analyzes type of triple. 



x 



, . . j 
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Table KO. Phase KO Subscript Optimization (Part 1 of 5) 



Statement or Operation Type 

Initialization is performed for the 
phase. The next DO-map entry in 
processing sequence is obtained and 
put in scratch storage. Module KP 
and KQ are loaded, and the Subs/ 
Region Table is updated from the 
patch file. The iterative specifi- 
cation and DO-map are checked in 
order to amend iterative specifica- 
tion. A subroutine is called to 
form a match chain in the Subs/ 
Region Table, once for Transforms 
and Invariants and once for common- 
ing. When end of DO-map is reached 
return is made to Compiler control 



h 



h 



Main Processing 
Routine 



The s index number for the loop is 
set to zero. The routine looks at 
the DO-map entry and iterative spe- 
cification triples and makes a 
patch over the ITDO and ITD* tri- 
ples if BXLE/BXH is to be generated 
for the loop 



KOINIT 



KOBXCH 



Subroutines Used 



ZLOADX f RELESE, 

KTAB (Macro routines in KA) # 

KNOPTM, KOBXCH , KPUPDT 



-H 



KTAB (Macro routines in KA) , 
KOSNDX f KOPTCH 



-H 



The match chain is processed and 
entries are made in the patch file. 
The patch entries contain optimized 
code for three types of subscript. 
Patches are also created for the 
BXLE/BXH code for optimized loop 
control 



KOMTCH 



ZDRFAB, ZDICRF, 
KTAB (Macro routines in KA) , 
KOCVTX, KOSNDX r KOMAKC, 
KOPTCH, KOMCOM, KOMCHN, 
KOMOVE, KOSSB3, KOSSB2, K0SSB1 



-H 



Creates part of patch for Trans- 
forms and Invariants. It is called 
from KOMTCH 



KOMCOM 



KOMOVE, KOPTCH 



t~ 



Makes an entry in the patch file 
from the patch build area. Options 
are available to move the patch 
data to the patch build area before 
making an entry in the patch file. 
Entries are chained together if 
they are to be inserted at the same 
point in text. A PTCH triple is 
placed in text at the point of ins- 
ertion. The overwritten triple is 
placed in the patch 

Moves the triple to be overwritten 
into the patch and moves the patch 
into the patch file. The symbolic 
reference of the patch is moved to 
the PTCH triple in workspace. The 
triple in text is then overwritten 
with PTCH triple 



KOPTCH 



KTAB (macro in KA) , KOMOVE, KOPCOM 



KOPCOM 



KOMOVE 



—4 
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Table KO. Phase KO Subscript Optimization (Part 2 of 5) 



The triples pointed to by the text 
references in the Subs/Region Table 
elements in the current match chain 
are amended to refer to a value 
calculated in patch code. The chain 
is then deleted and all COMA's pro- 
cessed are marked in the Subs/ 
Region Table as dealt with and 
optimized 

^„ .„. 

Tests the type of triple at the 
address given and sets a return 
code accordingly 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



KOMCHN 



KTAB (macro routines in KA) 



KNTRTY 



none 



h 



Moves an item to the next available 
address in the patch build area in 
scratch storage 



KOMOVE 



none 



Allocates a sindex register. The 
sindex register counter is incre- 
mented, the sindex available count- 
er is decremented and the symbolic 
register counter is incremented 



KOSNDX 



ZUERR, ZABORT 



The first part of a subs list, con- 
sisting of the SUBS triple and the 
COMA*s before the first matched 
triple, is moved to the patch build 
area. The SUBS is changed to SSUB 
and a symbolic register number is 
placed in the second operand. A 
null value is inserted in the 
second operand of the COMA triples. 
All other triples are not moved 



KOSSBS 



KTAB (macro routines in KA) , 
KOSNDX, KOMOVE 



h 



Moves the last part of a subs list, 
consisting of the COMA f s between 
the last matched triple and the 
SUB* triple, to the patch build 
area. The SUB' is changed to SSB' 
and all COMA triples have their 
second operand set to null value. 
No other triples are moved 



KOSSBE 



KOMOVE 



-4 



Tests whether any operand in a list 
of triples is a reference to a con- 
trol variable of the current loop 



KOCVTX 



KTAB (macro routines in KA) , KNTRTY 



h 



-+- 



+- 



The message "Invalid input type V 
to optimizing phase KO* is put out 



KOEROR 
KOSSB3 



ZUERR, ZABORT 



Moves a subscript list into the 
patch build area changing the SUBS/ 
SUB* triples to SSUB/SSB 1 . All 
matched COMA expressions are copied 
with amendments as follows: 

(1) References to the control vari- 
able are replaced by references to 
the step. 

(2) All additive invariant parts of 
the expression are deleted. 

All unmatched COMA expressions are 
replaced by COMA - NULL 



KOSSBS, KNTRTY, KOMOVE, KOSSBE 
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Table KO. Phase KO Subscript Optimization (Part 3 of 5) 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



A subscript list is moved to the 
patch build area with SUBS/SUB' 
changed to SSUB/SSB' triples. All 
matched COMA expressions are copied 
except the dictionary references to 
the control variable which are 
replaced by dictionary references 
to the 'initial' elements- All 
unmatched COMA expressions are 
replaced by COMA - NULL 



KOSSB2 



KNTRTY, KOMOVE, KOMAKC f KOSSBE, 
KOEROR, KOSSBS 



A subscript list is moved into the 
patch build area with SUBS/SUB' 
triples changed to SSUB/SSB' tri- 
ples. All matched COMA expressions 
are copied. All unmatched COMA ex- 
pressions are replaced by COMA - 
NULL 



KOSSB1 



KOMOVE, KOSSBE f KOSSBS 



h 



Produces a binary constant, if it 
is possible, given as parameters 
the dictionary reference of two 
constants in the operands of a 
given triple. A dictionary entry 
is made for the new constant, the 
dictionary reference of which is an 
output parameter. A return code 
value is also given indicating 
whether or not such a constant has 
been created 



KOMAKC 



— + 



KOTSTO, KNTRTY, ZDICRF, KOADDC , 
KOSUBC, KOMLTC 



h 



A dictionary entry is obtained from 
the given dictionary reference and 
tested to see if it is for at decim- 
al or binary integer constant. If 
it is f the effective precision is 
found and the constant is converted 
to binary if necessary 



KOTSTO 



ZDRFAB, KNCOMU, KOPREC 



-H 



Calculates the effective precision 
of the binary fullword given 



KOPREC 



none 



h 



A binary fullword result is 
obtained by multiplying togcither 
the two input binary values 



KOMLTC 



none 



A binary fullword result is 
obtained by adding together the two 
input binary values 



KOADDC 



none 



h 



A binary fullword result is 
obtained by the subtraction of the 
two input binary values 



KOSUBC 



none 



t- 



Converts a decimal constant to 
binary and multiplies it with a 
given binary value. An option may 
be specified to allow conversion 
only of the given decimal constant 
to binary 



KNCOMU 



ZDRFAB 
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Table KO. Phase KO Subscript Optimization (Part 



Statement or Operation Type 

t 

Scans the subscript lists of a 
DO- loop looking for matching COMA's 
or COMA - expressions which are 
possible candidates for transform- 
ing, moving out of the loop as 
invar iants f or commoning 



Main Process 
Routine 



4 of 5) 

1 

ing | 



Subroutines Used 



KNOPTM 



KTAB (macro routines in KA) , 
KNSECO, KNTRMV, KNCHRG, KNCMPR, 
KNALRG, KNOMAC, KNMKVL, KOMTCH 



Forward scans the Subs Table entry 
(equivalent to a backwards text 
scan) looking for the first group 
of COMA's that are optimizable as 
indicated by a switch 
j. 

Analyzes the type of triple operand 
and sets a return code value 
accordingly 
j 

Clears the match chain 



KNSECO 



none 



KNANAL 



ZDRFAB 



h 



KNOMAC 
KNCMPR 



KTAB (macro routines in KA) 



Match area code is compared with 
text. The start point, finish 
point, and length of matched code 
is passed back. Only complete COM- 
A'S or COMA - expressions are 
matched 



KTAB (macro routines in KA) 



H 



Text between specified triples is 
scanned. Cleaned up triples are 
moved into scratch storage 
, „ 

A list of dictionary references of 
all variables in operands of tri- 
ples in a scratch work area is 
made. The list is terminated with 
a half word of zeros. A flag is 
also set if any of the variables in 
the work area are unsafe 



KNTRMV 



KTAB (macro routines in KA) , 
KNTRTY, KNANAL, ZTXTAB, KNCOMU 



KNMKVL 



KNANAL 



h 



A check is made to determine if the 
given region entry is an end region 
for commoning for the matched code 
in the scratch work area 



KNCHRG 



h 



H 



A check is made for region boun- 
daries between specified subscripts 



KNALRG 



KTAB (macro routines in KA) , KNCHRG 



h 



H 



Controls the search through the 
patch file for SSUB triples and the 
subsequent processing of the 
restricted types of expressions 
found after the SSUB triples 



KPUPDT 



KTAB (macro routines in KA) , KPSSUB 



h 



Shortened version of phase KJ. 
Processes those triples following a 
SSUB triple 



+ 

KPSSUB 



KTAB (macro routines in KA) , 
ZDRFAB, KPCHKP 



-H 
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Table 
r 



KO. 



Phase KO Subscript Optimization (Part 5 of 5) 

. .. . — T T 

| Main Processing | 
Statement or Operation Type 1 Routine 



h 

(The USE list is searched to see if 
| the given dictionary reference is 
[contained in the list, A return 
| code is set depending on the part 
| of the USE list in which the 
(reference is found 



Subroutine Used 



KPUSEL 



KTAB (macro routines in KA) 



| Examines an operand of a triple and 
| sets flags in a code byte giving 
(the information required on the 
[operand during the analysis of the 
(expression within which it occurs 

Y — . 

(The operands of triples following a 
|SSUB triple are examined to deter- 
mine the type of expression under 
1 cons i de rati on 

L . . . 



KPSOPC 



+ _ 

ZDRFAB f KPUSEL 



KPCHKP 



KPSOPC 



Table KOI. Phase KO Routine/Subroutine Directory (Part 1 of 2) 

r- 



I Routine/Subroutine | 



Function 



h 



KNALRG 
KNANAL 
KNCHRG 
KNCMPR 
KNCOMU 
KNMKVL 
KNOMAC 
KNOPTM 
KNOPTY 
KNSECO 
KNTRMV 
KNTRTY 
KOADDC 
KOBXCH 
KOCVTX 
KOEROR 
KOINIT 



Checks region boundaries between specified subscripts 

Analyzes type of triple 

Checks for end region for commoning 

Compares code in two matching areas 

Multiplies decimal and binary values 

Lists variables in scratch storage 

Clears the match chain 

Scans subscript lists of DO-loop for matching COMA's 

Analyzes type of triple 

Scans Subs Table entry for optimizable group of COMA f s 

Removes offsets, tidies up, and moves code to match area 

Tests triple type 

Adds two binary values 

Checks DO- loop and patches over ITDO and ITD 1 triples 

Tests for reference to control variable 

Aborts 

Initialization for physical phase 
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Table KOI, Phase KO Routine/Subroutine Directory (Part 2 of 2) 

Function 



r -___- __ .__. — _______ 

| Routine/Subroutine | 



h 



~+- 



KOMAKC 

KOMCHN 
KOMCOM 
KOMLTC 
KOMOVE 

KOMTCH 
KOPCOM 
KOPREC 
KOPTCH 
KOSBSC 
KOSNDX 
KOSSBE 
KOSSBS 
KOSSB1 
KOSSB2 
KOSSB3 
KOSUBC 
KOTSTO 
KPCHKP 
KPSOPC 
KPSSUB 
KPUPDT 
K PUS EL 



Creates binary constant 

Amends triples to refer to value in patch 

Creates part of patch for transforms and invariants 

Multiplies two binary values together 

Moves item to next place in patch build area 

Processes match chain and makes an entry in patch file 

Overwrites triple in text with PTCH triple 

Obtains effective precision of binary value 

Makes an entry in the patch file 

Gets next entry from Subs/Region table 

Allocates a sindex register 

Moves last part of Subs list to patch build area 

Moves first part of Subs list to patch build area 

Moves a subscript list to patch build area 

Moves a subscript list to patch build area 

Moves a subscript list to patch build area 

Subtracts two binary values 

Tests if dictionary entry is for binary or decimal constant 

Checks operands of triples in SSUB list 

Sets a code byte after examining a triple operand 

Processes triples following a SSUB triple in a patch 

Searches patch file for SSUB lists 

Searches USE List for given dictionary reference 
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Table KT. Phase KT Pseudo-Code Scan 

r ■ ■ — t- 



| (Main Processing 1 1 
| Statement or Operation Type | Routine | Subroutines Used | 

|. — +— +— -- __„„i 

(SCINIT Initialization |LA0005 |UT01,UT02 | 

L. ,. __ „ „ _.„ .!._. .., , I , J 


|SC1 Search for triple of |LA0010 | UT01, UT03, UT06, UT07 f UT08 | 
| interest | j | 

(. . + _„„ „„_„ + ^^ ._. _____ ._ _____ H 

|SC2 Move current triple then |LA0011 JUT01, UT03, UT06 f UT07 f UT08 j 
I search | j | 

j. .__. + __ _ + _ _„_ . _____ ^ 

|SC3 Delete current triple then |LA0012 JUT01, UT03 f UT06 r UT07 f UT08 j 
| search | j j 
j. + __ _ _. _ + __ _ _ ___ H 

|SC4 Skip current triple - text | LAO 020 JUT0 6 j 
| wanted | j | 

i. — + . — . — +______ — „ — ___ — _ — „_. — ., 

|SC5 Skip current triple - text |LA0021 JUT06 j 
1 free | | | 

j. ._ — __ + + ______ _ — _____ H 

|SC6 Move current triple - text |LA0025 JUT03,UT06 j 
| wanted | j j 
^__ _ + _ _ __ + _______ .___ __„ ., 

|SC7 Move current triple - text |LA0026 |UT03,UT06 j 

j. . + __ + __ _ _ _ _ ^ 

|SC10 Symbolic input pointer to (LA0035 JUT01 | 
| absolute I j | 
| _ + _. ___ _ + _ _ ^ 

JSC11 Skip pseudo-code - text |LA00**0 JUT06 j 

L . . _ . . _ . _ .„. ... „ _ T „_ . „.. _ T _,. __ _,_ _ _ m . . _ _ ,„ r ,.., l.„ r , ._ _ _„. „ „„ ,, _, I „. , „ „ ^, LJ , J 


(SC12 Skip pseudo-code - text |LA00**1 |UT06 | 
| free | | j 
j. .. __ + _ _ _ + _ _ ___ _ H 

|MV2 Move user pseudo-code to ILA0050 (UT04 | 

|. __. __+____ _ + ___ _ _ . ^ 

1MV3 Move user pseudo-cocle to OP | LAO 055 |UT04 j 

L ,_ _ .... _ . 1 .„ . .... , .. „ 1 1 , J 


r- t T — — — i 

JMV3A Move user triples to OP [LA0056 JUT03 j 
|. _ . + _ __ + _ __ H 

|DV1 Generate dope vector for (LA0070 JUT07, UT10, UT11 j 
| based aggregate | j | 
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Table KT1. Phase KT Routine/Subroutine Directory 



r . .- T _ 

| Routine/SubroutineJ 
h 



Function 



DV1 

MV2 

MV3 

MV3A 

SCINIT 

SCI 

SC2 

SC3 

SC4 

SC5 

SC6 

SC7 

SC8 

SC9 

SC10 

SC11 

SC12 

UT01 

UT02 

UT03 

UT04 

UT05 

UT06 

UT07 

UT08 

UT10 

UT11 



Generate dope vector for based aggregate. 

Move user pseudo-code to contiguous output text. 

Move user pseudo-code to output. 

Move user triples to output. 

Initialize input and output text blocks. 

Searches for triple of interest to user as indicated by TRT table. 

Move current triple to output then search for triple of interest to 
user. 

Delete current triple then search for triple of interest to user. 

Skip over current triple and mask input WANTED. 

Skip over current triple and mark input FREE. 

Move current triple to output and mark input WANTED. 

Move current triple to output and mark input FREE. 

Move input pseudo-code to output and mark input WANTED. 

Move input pseudo-code to output and mark input FREE. 

Convert symbolic input pointer to absolute. 

Skip over input pseudo-code and mark input WANTED. 

Skip over input pseudo-code and mark input FREE. 

Get a new input text block. 

Get a new output text block. 

Move pseudo-code to output. 

Move triples to output. 

Move text to output. 

Test for end of block and chain to next block if necessary. 

Convert dictionary reference to absolute. 

Move input pseudo-code to output. 

Set adjustable bound values in a dope vector. 

Convert output text references to absolute. 
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Table KU. Phase KU DO-loop Control and Merge Patches (Part 1 of 2) 

, . T T _- 

Main Processing 
Statement or Operation Type 



t- 



Routxne 



Subroutines Used 



The phase KU control routine. This 
is highest level routine in phase 



KUMAIN 



MV3ACKT) + all routines in modules 
KU and KV except KVJUMP, KVSSUB, 
KVSSBP 



| 

Phase initialization 



KUINIT 



ZLOADW, ZUGC f SCINIT(KT) 



Processing initialization performed 
before each return to main scan 



KUSETS 



none 



Primary phase scan of text 



KUSCN1 



-f 



SC3CKT), SC1CKT) 



Secondary scan of DO-loop specifi- 
cation elements only 



KUSCN2 



SC3 (KT) , KVERRS 



ITDO triple test routine. Loops 
that are optimizable are detected 



KUITDO 



KVERRS 



CV and *CV triple processing 
routine 
H _ „- 

Determination of type of step 



KUCVAR 



SC5CKT), ZDRFAB, KVERRS 



h 



Fill in loop control skeleton for 
variable step with no s index 
registers 



KUSTEP 
KUSKL1 



ZDRFAB 



ZDICRF, MV3ACKT), MV3CKT) 



Fill in loop control skeleton for 
variable step with sindex registers 



KUSKL2 



MV3ACKT), MV3CKT) 



Fill in loop control skeleton for 
constant step 
j _ 

Phase finish. Release scratch 
storage KV and patch file. Return 
to control 
fr_ 

Patch triple processing routine. 
Each patch is located and inserted 



KUSKL3 

KUENDS 



MV3ACKT), MV3CKT) 
ZURC f RLSCTL, KVERRS 






KVPTCH 



f 



ZTXTAB f MV3ACKT), KVSSUB f KVERRS 
KVITDP, KVSSBP, KVCOMA, KVCOMR, 
KVJUMP 



Process all COMR triples 
j. 

Process all COMA triples 

| . 

Process JUMP triples. Used only 
while processing a patch 



KVCOMR 



none 



KVCOMA 



none 



_| 



KVJUMP 



MV3 (KT) 



Process SSUB triple. Used only 
while processing a patch 



KVSSUB 



ZDRFAB, ZTXTRF 



Process SSB 1 triples. Used only 
while processing a patch 



KVSSBP 



ZTXTAB 



h 



SUBS and SUBO triple processing 
routine 
fr_. „ 

| SUB* triple processing routine 

L . . . . . 



KVSUBS 



ZDRFAB, ZTXTRF, MV3ACKT) 



I KVSUBP 



-+— 

| ZTXTAB 

-J. 
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Table KU. 

r — — ■ 



Phase KU DO-loop Control and Merge Patches (Part 2 of 2> 

Subroutines Used 



Statement or Operation Type 



(Main Processing) 
| Routine | 
-4 + 

|ITD* triple processing. Insert | KVITDP |MV3(KT), MV3A(KT) 

(epilogue into text for optimizable | j 

| loops | | 

h 



| Set up phase error message number [KVERRS 
(and parameters I 



| ZUERR # Z ABORT 



h 



"H 



j Search register alias table for [KVALAS 
(SSUB register [ 



(None 



Table KOI. Phase KU Routine/Subroutine Directory 



j Routi ne/ Subr out i ne j 



Function 



KUCVAR 
KUENDS 
KUINIT 
KUITD0 
KUMAIN 
KUSCN1 
KUSCN2 
KUSETS 
KUSKLl 
KUSKL2 
KUSKL3 
KUSTEP 
KVALAS 
KVCOMA 
KVCOMR 
KVERRS 
KVITDP 
KVJUMP 
KVPTCH 
KVSSBP 
KVSSUB 
KVSUBP 

KVSUBS 

L 



Processes CV and *CV triple in optimizable loop 

Phase finish. Releases KV r scratch storage and patch text 

Initializes phase KU processing 

Detects DO-loops flagged as optimizable 

Phase KU control routine 

Primary scan for phase 

Scan for DO-loop specification elements 

Processing initialization 

Sets up variable step sindexes available loop control code 

Sets up variable step no sindexes loop control code 

Sets up constant step loop control code 

Determines type of step 

Searches register alias table for SSUB register 

Processes COMA triples 

Processes COMR triples 

Processes phase KU errors 

Inserts loop control epilogue 

Processes pseudo-code within patches 

Processes PTCH triples by reference to patch file 

Processes SSB* triples occuring within patches 

Processes SSUB triple occuring within patches 

Processes all SUB' triples 

Processes SUBS triples 
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PSEUDO-CODE PHASE TABLES 



Table LB 

r 



Phase LB Pseudo-Code Initial 
Statement or Operation Type 



T _ T . 

(Main Processing | 

| Routine j 

+ _- + - ._„ 

|SCAN JSCINIT, SCI, SC3, SC5 Call in KT) r 
| |SFSCAN, ENDRTN, MAIN, SCAUTO, 
| JAUT012 
. + _„ _ + 

(main 



Subroutines Used 



j Scans text for PROCEDURE, BEGIN, 

|and ALLOCATE triples 

I 



1 Scans automatic chain 



I SCAUTO 



| Processes INITIAL attribute dic- 
tionary items 

j. 

[Processes INITIAL arrays 

L 



[MAIN 



_ + 

|AUT012 
.+_. 

|ARRENT 

-X_ . 



JCNSTWK, ARRENT 

! 



[Processes IDV statements 



I ARRENT 



-H 



ICNSTWK 



Table LB1. Phase LB Routine/Subroutine Directory 



j Routine/Subroutine] 



Function 



[ARRENT CLC) 

I 
|AUTO!2 

I 

| CNSTWK 

I 

| ENDRTN 

I 

| MAIN 

I 
(SCAN 

I 

| SCAUTO 

I 

I SFSCAN 



i 



Generates triples and pseudo-code for arrays declared with INITIAL. 

Processes IDV (initial dope vector) statements. 

Creates initialization triples. 

Releases phase and scratch storage. 

Processes INITIAL attribute dictionary items. 

Scans text for PROCEDURE, BEGIN, and ALLOCATE triples. 

Scans AUTOMATIC chain. 

Scans through second file statements. 
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Table LD. Phase LD Pseudo-Code Initial 



_ T . — T _ 

[Main Processing! 
Routine 



Statement or Operation Type 



Subroutines Used 



I Scans the STATIC chain for any (STATIC 
(variable with the INITIAL attribute| 

L . X 



(ENDRTN, ARRENT, CNSTWK, 
|LOVNAS, STRADD 

_-L 



Table LD1. Phase LD Routine/Subroutine Directory 



r t~ 

| Routine/Subroutine | 

I 



Function 



-+- 



(ARRENT 
| CNSTWK 
| CNVERT 

| ENDRTN 
|GAA1 
|GAC3 
[LOVNAS 

[STATIC 
| STRADD 
|ST0006 
(ST0088 
IST9999 



[Processes the initial value string for arrays. 

[Creates constant entries for initial values. 

| Converts decimal integer constants used as replication factors to 
| fixed binary. 

[Releases the phase and scratch storage. 

[Scans array initial value string. 

[Makes slot for converted constant for arrays. 

[Calculates the equivalent length in bits or bytes of a constant for 
(variable or adjustable length strings. 

| Scans the STATIC chain. 

| Addresses elements of structures. 

[Locates initial value list. 

[Resets initial value entry. 

Makes slot for converted constant for scalars. 
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Table LG. Phase LG Pseudo-Code DO Expansion 

r _ . . T T . 

Main Processing 
Statement or Operation Type 

, — 

Scans text 



J— 



Routine 



LG0002 



— + 



Subroutines Used 



SCI (KT) 



—I 



For iterative DO triples, pushes 
down stack and examines control 
variable 



LG0011 



PSHDWN , SC5 CKT) , CVSCAN 



h 



Pushes down DO stack 



LG0013 



— + 



PSHDWN 



| _. 

For iterative DO* and DO' triples, 
pushes up stack and removes top 
entry 



1*30012 



EXPEVL, POPUP 



-H 



h 



For CV triples, reverts to normal 
scan 



LG0015 



EXPEVL 



h 



For TO and TO 1 triples, examines 
argument and assigns to temporary, 
if necessary 
I— 



LG0017 



EXPEVL, TESTOP 



For BY and BY 1 triples, examines 
expression and determines signs of 
constants; assigns variables to 
temporary 

For WHILE and WHILE* triples, marks 
loop as iterative; generates test 
triples 



LG0019 



LG0021 



EXPEVL, TESTOP 



CODE3 






DO EQUALS triples, assigns expres- 
sion as a temporary; generates code 
to control loop if end of 
specification 



LG0024 



CODE2, TESTOP 



Sets up control variable text in DO 
stack 



CVSCAN 



CVCOPY, PSTYPO, PSTYP1 



h 



Generates loop control code 



CODE2 



h 



CVCODE, DICENT, COMPAR, SWITCHP, 
LMV3AU, LMV3A5, PSTYPO, PSTYP1 



Tests expression result type and 
assigns to temorary if not constant 



TESTOP 



DICCHN, LMV3A5 



I Moves text from DO stack to output (CVCODE 

L . . . X 



| LMV3AU 



Section 3: Program Organization 145 



Table LG1. Phase LG Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 



Function 



C0DE2 

CODE 3 

COMPAR 

CVCODE 

CVCOPY 

CVSCAN 

DICCHN 

DICENT 

EXPEVL CLH) 

LGOOOO 

LG0002 

LG0010 

LG0011 

LG0012 

LG0013 
LG0015 
LG0017 

LG0019 

LG0021 

LG0022 

LG0024 

LMV3AU 

LMV3A5 

POPUP 

PSHDWN 

PSTYP0/PSTYP1 

SWITCHP 

TESTOP 



Generates loop control code. 

Generates loop control code for WHILE. 

Generates triples to test upper limit control expression. 

Moves text from DO stack to output. 

Moves input text to DO stack. 

Sets up control variable text in DO block. 

Chains dictionary entries. 

Makes a dictionary entry. 

Analyzes expression to determine result type. 

Initializes phase. 

Scans text. 

When EOP triple encountered, releases scratch storage and passes 
control to next phase. 

For iterative DO triples pushes down stack and examines control 
variable. 

For iterative DO 1 and DO" triples pushes up stack and removes top 
entry . 

Pushes down DO stack. 

For CV triples reverts to normal scan. 

For TO and TO* triples, examines argument and assigns to temporary 
if necessary. 

For BY and BY' triples, examines expression and determines sign of 
constants. Assigns variables to temporary. 

For WHILE and WHILE' triples, marks loop as iterative and generates 
text triples. 

When WHILE* triple encountered, branches to generate comparison 
triples. 

For DO EQUALS triples, assigns expression to a temporary: generates 
code to control loop if at the end of specification. 

Moves triples to output. 

Moves one triple to output. 

Removes item from DO stack. 

Pushes down DO stack and initializes new stack entry. 

Test pseudo- variable argument type. 

Changes DO stack text markers. 

Tests expression result type and assigns to temporary if not 
constant . 
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Table LS. 
r 



Phase LS Pseudo-Code Expression Evaluation 



T . ._. — T 

Main Processing 
Routine 



Statement or Operation Type 



Scans text and branches to 
processing routines? marks phase LW 
and releases control to next phase 



-+■ 



LBO 



Subroutines Used 






ARITH, FUNCT, LZZ1 , MOVEPC, 
SCAN (KT> f STRING, SUBSPT 



Calculates result type and 
generates pseudo-code for + , - f *, 
/, prefix + f prefix -, compare 
operators, and ADD, MULTIPLY, and 
DIVIDE functions 
| . „j_ 

Calculates result type for string 
operators 



ARITH, ARITH2 



ADDSTK, ASSIGN, CONVT, DICDES, 
EXPONT, GENRPD, GETADX, GETFR, 
GETGR, MOVEPC, RELSTK, SETCPX, 
STRING, SWOP 



STRING 



LZZ1, MOVEPC, STALRG 



. + 



Inserts symbolic register in sub- 
script triple and stacks result 



SUBSPT 



ADDSTK, DICDES 



Inserts workspace description in 
TMPD triples after function, and 
stacks result. Stacks arguments 
for ADD, MULTIPLY, and DIVIDE func 
tions. Adds pseudo-variable mar- 
kers to stack 

Calculates result type and 
generates pseudo-code for ** opera- 
tor. Generates calling sequences 
to library subroutines for complex 
arithmetic 
h 



FUNCT 



+ . 



ADDSTK, ARITH, DICDES, GETFR, 
GETGR, SCAN(KT) 






EXPONT 



ADDSTK, ARITH2, CONVT, GETADX 
MOVEPC, STALRG, SWOP 



Calculates target type and 
generates assignment triple for 
conversion; sets dictionary entries 
for constants 



CONVT 



ADDSTK, ASSIGN, GETFR, MOVEPC, 
STALRG 



h 



h 



Inter changes operands; optionally 
loads first operand 



SWOP 



GETADX, GETFR, GETGR 



Obtains free floating or fixed ari- 
thmetic register; stores it, if 
necessary 



GETFR, GETGR 



GETADX, STALRG 



h 



Adds items to, and releases items 
from intermediate result stack 
j _. 

Generates calling sequence tor com- 
plex * and / operators, supervises 
complex arithmetic 



ADDSTK, RELSTK 



None 



SETCPX 



EXPONT, GETADX 



h 



Inserts TMPD triples after zero 
operands 



LZZ1 



RELSTK, SCAN(KT) 
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Table LSI. Phase LS Routine/Subroutine Directory 

I ' T ' 

| Routine/ Subroutine | Function 

j. 



ADDSTK 


(LT) 




ARITH/ARITH2 


(LT> 


ASSIGN 






CONST 






CONVT 






DICDES 






EOP2 






EX PONT 


(LU) 





Adds items to intermediate result stack. 

Calculate result type and generate code for + , -, *, /, prefix + , 
prefix -, compare operators, and ADD, MULTIPLY, and DIVIDE 
functions. 

Generates an assignment triple and TMPD in the output text. 

Sets up dictionary entry for constant operand. 

Calculates target type and generates assignment triple for 
conversion. 

Constructs operand description from dictionary entry. 

Marks phases wanted/not wanted and releases control. 

Calculates result type and generates pseudo-code for ** operator, 
and generates calling sequence to Library subroutines for complex 
arithmetic. 

Inserts workspace description in TMPD triples after function, and 
stacks result. 

Inserts workspace description in TMPD triples after function, and 
stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE func- 
tions. Adds pseudo- variable markers to stack. 

Generates fixed binary pseudo- code. 

Generates pseudo-code for packed decimal operations. 

Sets up address of pseudo-code instruction. 

Obtain free floating or fixed arithmetic register; store it, if 
necessary. 

Scans text and branches to processing routines. 

Tests for operand conversions and constants. 

Generates floating pseudo-code. 

Inserts TMPD triples after zero operands. 

Moves pseudo- code to output text. 

Adds pseudo- variable marker to stack. 

Releases items from intermediate result stack. 

Generates calling sequence for complex * and / operators; supervises 
complex arithmetic. 

Generates pseudo-code to store all arithmetic registers currently in 
use. 

Calculates result type for string operators. 

Inserts symbolic register in subscript triple and puts result in 
stack. 

Interchanges operands and optionally loads first operand. 



FCTDES 
FUNCT 

FXC1 (LT) 

GENRPD 
GETADX (LT) 
GETFR/GETGR (LT) 

LBO 

LBE21 (LT) 

LBFL1 (LT) 

LZZ1 

MOVEPC 

PSI 

RELSTK (LT) 

SETCPX (LU) 

STALRG 

STRING 
SUBSPT 

SWOP 
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Table LV. Phase LV Pseudo-Code String Utilities 

, . ... — . T T 

| (Main Processing! 
I Statement or Operation Type | Routine | 
! __ + + _ 

(Initializes module; releases con- (STRUTO (None 
(trol to next module I j 

|. . + _. 

(Converts data item to string;? cal- (STRUT1 
(culates string length | 

(Produces a string dope vector (STRUT2 
(description from a standard string | 
| description ( 

L . . J. . 



Subroutines Used 



(SCAN (KT), STRUT 2 



-+ 

(None 



Table LV1. Phase LV Routine/Subroutine Directory 



j Routine/Subroutine j 



Function 



| LSUT17 



(LSUT22 

1 

1 LSUT26 

i 

( LSUT27 

I 

| STUTO 

I 

j STRUT1 

I 

| STRUT2 



( ZSTUT1 

I 
(ZSTUT2 



Tests whether string length is greater than 256 f and if necessary 
generates fixed length calling sequence. 

Tests whether string dope vector result is required. 

Generates any assignment and TMPD triples. 

Sets up assignment and TMPD triples. 

Initializes module; releases control to next module. 

Converts data item to string type; calculates string length. 

Produces string dope vector description from standard string 
description. 

Transfer vector to STRUT1. 

Transfer vector to STRUT2. 



-H 
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Table LX. Phase LX Pseudo-Code String Handling 



Initializes phase, scans text and 
branches to processing routines; 
releases control to next phase 



Statement or Operation Type 



Main Process 
Routine 



ing 



Subroutines Used 



BEGIN 



FUNPT, SCAN (KT) f STROP, 
SUBSPT, TMPDT 



h 



Processes TMPD triples. Arithmetic 
type TMPDs are ignored. String 
TMPDs are replaced by the top item 
from the string stack 



TMPDT 



GETMPD, MOVSEL, RELSTK r SCAN CKT) 
SETMPD 



Processes function and function 
argument triples. Arithmetic type 
functions are ignored. Dictionary 
entries are created for the results 
of string type functions . A 
library calling sequence is 
generated for the BOOL function 
using the mechanism for packed bit 
operations. The result descrip- 
tions are added to the string stack 



FONT 



ADDSTK, DICDES, GET ADS, GETMPD, 
M0VEPC, RELSTK, SCAN (KT>, SETMPD, 
STROP 



h 



Processes subscript triples. Ari- 
thmetic type subscripts are 
ignored. A symbolic register or 
workspace offset is added to string 
type subscript triples and the 
string description is added to the 
string stack 



SUBSPT 



ADDSTK, DICDES, SBGN0R, SCAN (KT) 



Processes string operations C0NCAT f [STROP 
AND, OR, NOT and comparisons with 
string type operands. For simple 
cases, in-line pseudo-code is 
generated; otherwise calling 
sequences to the library are 
generated. The results are added 
to the string stack. 

L . 



ADDSTK, DICDES, GETADS, GETADX, 
GETMPD, MOVEPC, MOVSEL, RELSTK, 
SCAN(KT), STRUT(LV), ASSIGN, 
GETWS4, GETWS8, SBGNER, SBGNR 



-X 
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Table LX1. Phase LX Routine/ Subroutine Directory 

f r — . . ~ . . 

| Routine/ Subroutine | Function 



— 1 



ADDSTK 
ADSTR (LY) 

ASSIGN 

BEGIN 

DICDES 

FUNPT 

FUNT 

GETADS/GETADX 

GETMPD 

GETWS4 

GETWS8 

LB 

LIB1 

LIL2 (LY) 

LIL3 (LY) 

LIL6 (LY) 

LIL8 (LY) 

Lll 

MOVEPC 

MOVSEL 

MVC1/MVC2(LY) 

RELSTK 

SBGNER 

SBGNOR 

SBGNR 

SETMPD 

STROP 

SUBSPT 

TMPDT 

T5 



Adds .strings to the intermediate string result stack. 

Constructs dope vector and string descriptions from a given descrip- 
tor which may describe either a string, or its dope vector. 

Generates an assignment triple and associated TMPDs in the output 
text. 

Main controlling routine for phase. 

Constructs operand description from dictionary entry. 

Processes result returned by functions. 

Processes funtion and function argument triples. 

Construct address part of pseudo-code instruction. 

Constructs operand description from TMPD triples. 

Allocates 4 bytes of aligned workspace. 

Allocates 8 bytes of aligned workspace. 

Terminates phase at end of program. 

Generates Library calls for string operations. 

Generates pseudo-code for NOT operation. 

Generates pseudo-code for concatenation operation. 

Generates pseudo-code for comparison operation. 

Generates pseudo-code for AND /OR operation. 

Generates pseudo-code to convert to string. 

Moves pseudo-code from buffer to output text. 

Moves SELL triples to output text. 

Creates MVC instructions. 

Removes strings from the intermediate string result stack. 

Gets next even-odd pair of symbolic registers. 

Gets next symbolic register. 

Gets next symbolic register. 

Constructs TMPD triples from description. 

Processes string operations CONCAT, AND, OR, NOT, and comparisons 
with string type operands. 

Processes subscript triples. 

Processes TMPD triples. 

Sets flags for triple types. 
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Table MA, Phase MA Pseudo-Code Translate and Verify Functions 

r . T T 

Main Processing | 
Statement or Operation Type 



h~ 



Routine 



Subroutines Used 



Scans source text 
l__ 

Function marker triple CFNC) 
processor 



Phase KT (SCAN) 



SCKKT) 



FUNC 



SC2 (KT) , SC3 (KT) , SC5 (KT) 



h 



Double coma triple (FNCM) processor 



SDCOM 



SC2 (KT) , SC3 (KT) f SC5 (KT) 



Function prime triple (FNC f ) 
processor 



SFNPM 



SC5(KT) 



TRANSLATE function processor 
j__ _ 

Creates compile time table 

h 



TV10A 



TV31A, TV 11 



TV11 



TV13A, TV31A 



Converts constant from internal to 
external form and vice versa 



TV13A 



None 



Initializes VERIFY compile time 
table 



TV15A 



TV13A 



VERIFY function floating table 
build 



TV17A 



MV3(KT) 



Pseudo-code build for VERIFY 
function 



TV18A 



MV3 (KT) 



h 
h 

TRANSLATE function in line code 
l . _ 

VERIFY function processor 
| 

Tests for duplicate character 
constant 
f 

Floating table search 
K 

Library calling sequence generator 
, 

Updates function dictionary 
reference 
, 

(Obtains workspace 

L . . 



Floating table build for TRANSLATE 



TV21A 



MV3(KT) 



TV22A 



MV3 (KT) 



TV24A 



TV11, TV31A 



PTTRAN 



ERROR 



~H 



TV31A 



None 



TV35A 



TV38A 



MV3(KT) r TEMPW 
None 



■+ 

|TEMPD 
.x 



-+ 

| None 
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Table MAI, Phase MA Routine/S ibroutire Directory 



r 



[Routine/ Subroutine 



Function 



ERROR 

FUNC 

PTTRAN 

SDCOM 

SFNPM 

TEMPD 

TEMPW 

TV10A 

TV11 

TV13A 

TV15A 

TV17A 

TV18A 

TV21A 

TV22A 

TV24A 

TV31A 

TV35A 

TV38A 



Produces error message 

Processes function marker triple CFNC) 

Tests for duplicate character constant 

Processes double coma triple (FNCM) 

Processes function prime triple (FNC*) 

Obtains workspace 

Gets temporary workspace 

Processes TRANSLATE function 

Creates compile time table 

Converts constant from internal to external form and vice versa 

Initializes VERIFY compile time table 

Builds VERIFY function floating table 

Builds pseudo-code for VERIFY function 

Builds floating table for TRANSLATE 

TRANSLATE function in line code 

Processes VERIFY function 

Searches for floating table 

Generates library calling sequence 

Updates function dictionary reference 
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Table MB. Phase MB Pseudo-Code Pseudo-Variables 

r . T 









PS I operator; starts new entry in 
stack for pseudo-variable 



Statement or Operation Type 



Scans source text 



Main Processing 
Routine 



MB0001 



MB0011 



Subroutines Used 



SCI (KT) 



SWITCH 



PSI' operator; completes stack 
entry and generates code for data 
list items 



MB0012 



SWITCH, TARGET 



h 



ASSIGN completes stack and rescans 
group of assignments, putting tar- 
get descriptions out in correct 
sequence; generates code for 
pseudo- variables in stack 



MB0013 



DRFTMP, MMV3A5, MVTMPD, OUTMPD, 
TARGET 



h 



Multiple ASSIGN; places only target 
descriptors in stack 



MB0014 



MVTMPD 



—I 



h 



Constructs pseudo-variable stack 
entry 



MB0020 



MVTMPD 



h 



Places temporary descriptor in 
output 



OUTMPD 



MMV3A5 



Gets temporary workspace for 
pseudo- variable, if necessary 



TARGET 



GETWKS 
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Table MB1. Phase MB Rout ine/Subr out ine Directory 



r t 

Routine/Subroutine | 



DRFTMP 
GETWKS 
MB0001 
MB0004 
MB0010 

MB0011 
MB0012 

MB0013 

MB0014 
MB0020 
MB1310 
MB1311 
MB1316 
MB1318 
MB1320 
MMV3A5 
MVTMPD 
OUTMPD 
SWITCH 
TARGET 



Function 

Makes temporary descriptor from a dictionary reference. 

Obtains workspace to accommodate a variable of given type. 

Scans source text. 

Multi-switch for triples of interest. 

On reaching end-of-text marker, releases remaining block f and 
releases control of phase. 

PSI operator; starts new entry in stack for pseudo-variable. 

PSI 1 operator; completes stack entry and generates code for data 
list items. 

ASSIGN; completes stack and rescans group of assignments, putting 
target descriptions out in correct sequence, generates code for 
pseudo- Vciriable in stack. 

Multiple ASSIGN; places any target descriptors in stack. 

Constructs pseudo- variable stack entry. 

Resets input pointer to start of sequence of ASSIGNS. 

Rescans ASSIGNS and associated TMPDS from stack in reverse order. 

Tests for end of stack. 

Tests for pseudo-variable TMPD. 

Generates code for pseudo- variable. 

Moves one triple to output. 

Places temporary descriptor in stack. 

Places temporary descriptor in output string. 

Changes scanning table. 

Obtains temporary workspace for pseudo-variable, if necessary. 
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Table MD. Phase MD Pseudo-Code In-Line Functions 



"T T" 

(Main Processing! 
| Routine | 



Statement or Operation Type 



Subroutines Used 



I Scans text 



(Builds up function stack 



(Phase KT (SCAN) j None 
. + _. + 

ILFARIN (None 



| + 

(Builds up argument stack | LFCOM 
j. + 

| Moves generated code to output (LFMOVE 
(block 



| None 

-+ 

(MV3CKT) 



h 

I Generates in-line code and 

(library calling sequences 



-+ 

| LFE0F2 



| SNAKE, ROPE 



Table MDl. 

r- 



Phase MD Routine/ Subroutine Directory 

T . 



| LFARI1 
( LFARIN 
1 LFCOM 
(LFDR 
(LFEOF2 
(LFIGN 
| LFSPEC 
(ROPE 
I SNAKE 



(Continues scan for in-line functions, 
| Builds up function stack. 
(Builds up argument stack. 

(Unpacks dictionary reference of argument when argument triple found. 
(Calls subroutines to generate in-line code. 
(Removes triple from text if inside an in-line function. 
| Branches if IGNORE triple or not an in-line function. 
(Generates code for STRING function. 
Generates code for ADDR function. 



Table ME. Phase ME Pseudo-Code In-Line Functions 

r 

I 

Statement or Operation Type 



T ' T" 

| Main Processing | 
| Routine 



Subroutines Used 



(Scans and moves text 

k 

(Builds up function stack 



-H 



|Phase KT (SCAN) ( SCI , SC2 , SC3 , SC5 , MV3 

- + + 

| SFUNC ZDRAOF 



I— 

(Constructs result TDB and branches (SFNPM 

| to routines for INDEX, UNSPEC, | 

(COMPLETION, and STATUS | 



| MS 4 ,MS5 , MSB, RTAA,RTAB, INDEX, 
[ ILUNSP, EVENT, ZDRAOF, STATUS 



I 



h 

(Deletes current triple 

, 

1 Builds up argument stack 



[SIGN 



(None 

-+ 

| ZDRAOF 

-+- 



-H 



1 SDCOM 



h 

(Inspects arguments and branches to (MSB 

[appropriate subroutine | 

i . . — x 



| RTB , RTC, RTD, RTE, RTF, RTG, RTH 



I 
-X- 
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Table ME1. Phase ME Routine/ Subroutine Directory (Part 1 of 2) 

r t • ■ ' " ' ' 

| Routine/Subroutine | Function 

j. + . — 

[EVENT (Generates in-line code for COMPLETION function, 

[FINISH (Passes control to the next phase. 

[ILUNSP (Generates in-line code for the UNSPEC function, 

(INDEX (Generates in-line code for optimizable invocations of the function 

(INDEX. 

| MSB (Calls subroutines to generate in-line code. 

(MSG (Resets current flag and continues scan. 

(RLCTOF (Releases module and passes to next phase. 

(RTAA (Generates in-line code when the result is in a register by name, and 

(the second argument is constant. 

|RTAB (Generates in-line code when the result is in a register by name, and 

| the second argument is variable. 

|RTB (Generates in-line code for the case when the first argument is an 

| aligned bit string, and the second and third arguments are both 
| constant, 

|RTC (Generates in-line code in the case when the first argument is a 

| character or aligned bit string, the second argument is constant and 
(the third variable. 

|RTD (Generates in-line code when the first argument is a character or 

| aligned bit string, the second is constant and the third is not 
| present. 

|RTE (Generates in-line code when the first argument is a packed bit 

(string, and the second is constant. 

(RTF | Generates in-line code when the first argument is a character 

(string, and the second and third are both variable. 

(RTG (Generates in-line code when the first argument is a character 

(string, the second is variable, and the third is not present. 

(RTH (Generates in-line code when the first argument is a bit string, and 

(the second is variable. 

SBERR (Error routine. 

[SBGNER (Gets the next even register and sets the even/odd bit on. 

I SBGNOR (Gets the next odd register and sets the even/odd bit on. 

I SBGTNR (Gets the next available symbolic unassigned register. 

[SCAN (Scans for the next triple of interest. 

iSCINIT (Initializes pointers and text blocks. 

[ SDCOM (Builds up argument stack. 

i SFNPM (Generates in-line code. 

I SFUNC (Builds up function stack. 
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Table ME1. Phase ME Routine/ Subroutine Directory (Part 2 of 2) 

Function 



r T _ 

| Routine/Subroutine | 



JSIGN 
| STATUS 
| STRUT 2 
|SUB1 

,SUB3 

(SUB4 

SUB5 
1SUB6 

SUB7L 
|SUB7R 
|SUB9 
| ZDRAOF 

| ZURCOF 

i 



[Deletes current triple. 

[Generates code for STATUS function, 

[Constructs a string dope vector. 

[Generates code to place the address of the first argument plus a 
[literal offset into a symbolic register. 

(Generates a ST and DROP instruction, optionally followed by a MVI 
| instruction. 

| Constructs a dictionary entry for the constant JJ, and generates an 
|MVC instruction. 

(Generates two STH instructions, followed by a DROP instruction. 

[Generates an RX instruction to operate on a TDB by a register, 
[optionally followed by an instruction to drop any register used in 
| addressing the TDB item. 

(Generates SR, SLDL, OR instructions. 

(Generates SR, SRDL, OR and DROP instructions. 

[Calculates correct values for ILEN, IOFF and Y. 

(Converts a dictionary reference to an absolute address. 

Releases scratch core. 



Table MG. Phase MG Pseudo-Code In-Line Functions 1 



T T~ 

Main Processing! 
Routine I 



Statement or Operation Type 
k 

Scans text 
t. 

Builds up function stack 
,. 

Builds up argument stack 
j. 

Move generated code to output 
block. 



Subroutines Used 



PHASE KT (SCAN) ( None 
+ 

LFARIN l None 



LFCOM 



(None 

-+ 

|MV3 (KT) 



LFMOVE 



h 



Generates in-line code 



LFEOF2 



(ABBFLL, ABBFLS, ABSFB, ABSFD, 
(ALL0C2, CEILB, CEILD, CEILL, 
| CEILS, CMPLXB, CMPLXD, CMPLXL, 
JCNASTR, CNVINT, CONJGB, CONJGD, 
JCONJGL, CONJGS, ERRFUN, FLOORB, 
(FLOORD, FLOORL, FLOORS, IMAGB, 
(IMAGFD, IMAGL, I MAGS, RE ALB, 
(REALFD, REALL, REALS, SBGTNR, 
(TRUNCB, TRUNCD, TRUNCL, TRUNCS, 
JUNSPEC, UTTEMP 
-A . . . 
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Table MG1. Phase MG Routine/Subroutine Directory (Part 1 of 2) 

Function 



r~ ■ — ~ — ■ t- 

| Routine/Subroutine | 



, + _ . . — i 

[Generates in-line code for ABS function with long floating-point 
| argument . 

[Generates in-line code for ABS function with short floating-point 
(argument. 

[Generates in-line code for ABS function with fixed binary argument. 

(Generates in-line code for ABS function with fixed decimal argument. 

(Generates in-line code for ALLOCATION function. 

(Generates in-line code for the CEIL function with fixed binary 
| argument.. 

(Generates in-line code for the CEIL function with fixed decimal 
(argument .. 

(Generates in-line code for CEIL function with long floating-point 
j argument • 

[Generates in-line code for the CEIL function with short floating- 
j point argument. 

(Generates in-line code for COMPLEX function with fixed binary 
| argument . 

[Generates in-line code for COMPLEX function with fixed decimal 
(argument. 

(Generates in-line code for COMPLEX function with long floating-point j 
) argument . 

[Constructs assignment triple and associated TMPDS. 

[Converts a decimal integer constant to fixed binary. 

[Generat€is code for the CONJG function with fixed binary arguments. 

[Generates in-line code for the CONJG function with fixed decimal 
(arguments. 

(Generates in-line code for the CONJG function with long floating- 
j point arguments . 

j Generates in-line code for the CONJG function with short floating- 
( point arguments. 

j Aborts if Phase IM discovers an error in a function. 

(Generates in-line code for the FLOOR function with fixed binary 
| argument . 

[Generates in-line code for the FLOOR function with fixed decimal 
| argument . 

(Generates in-line code for the FLOOR function with long float ing- 
1 point argument . 

[Generates in-line code for the FLOOR function with short floating- 
point argument. 

(Generates in-line code for IMAG function with fixed binary argument. 



(ABBFLL 

(ABBFLS 

(ABSFB 
(ABSFD 
| ALLOC 2 
|CEILB CMH) 

(CEILD (MH) 

(CEILL (MH) 

| CEILS (MH) 

(CMPLXB 

(CMPLXD 

(CMPLXL 

| CNASTR 
|CNVINT 
(CONJGB 
| CONJGD 

| CON JGL 

| CONJGS 

[ERRFUN 
[FLOORB (MH) 

(FLOORD (MH) 

(FLOORL (MH) 

(FLOORS (MH) 

| IMAGE 



I X_ . . . 



_. J 
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Table MG1. Phase MG Routine/ Subroutine Directory (Part 2 of 2) 

I ' ' T 

| Routine/ Subroutine | Function 

h 



| IMAGFD 

[IMAGL 

|IMAGS 

(LFARIN 
[LFARI1 
[LFCOM 
|LFDR 
| LFEOF2 
| LFEOF3 

| LFIGN 

| LFMOVE 

|LFSPEC 

|REALB 

(REALFD 

|REALL 

| REALS 

|SBGTNR 
(TRUNCB (MH) 

ITRUNCD (MH) 

(TRUNCL (MH) 

|TRUNCS (MH) 

(UNSPEC (MH) 
(UTTEMP 



(Generates in-line code for IMAG function with fixed decimal 
(argument. 

(Generates in-line code for IMAG function with long floating-point 
j argument . 

(Generates in-line code for IMAG function with short floating-point 
[argument. 

(Builds up function stack. 

(Continues scan for in-line functions. 

(Builds up argument stack. 

(Unpacks dictionary reference of argument when argument triple found. 

(Calls subroutines to generate in-line code. 

(Depending on start of argument list, branches to produce in-line 
j code . 

(Removes triple from text if inside an in-line function. 

(Moves generated code to output block. 

| Branches if IGNORE triple or not an in-line function. 

| Generates in-line code for REAL function with fixed binary argument. 

| Generate in-line code for REAL function with fixed decimal argument. 

(Generate in-line code for REAL function with long floating-point 
(argument. 

(Generates in-line code for REAL function with short floating-point 
| argument. 

| Get next available symbolic register. 

| Generates in-line code for the function TRUNC with fixed binary 
j argument. 

(Generates in-line code for the TRUNC function with fixed decimal 
j argument . 

(Generates in-line code for the TRUNC function with long floating- 
I point arguments. 

(Generates in-line code for the TRUNC function with short floating- 
I point argument . 

(Generates in-line code for the UNSPEC function. 

| Gets a required amount of temporary work space. 
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Table MI 
r 



h- 



Phase MI Pseudo-Code In-Line Functions 2 
Statement or Operation Type 



T T - 

| Main Processing | 
1 Routine 



Subroutines Used 



~| 



(Scans text (PHASE KT (SCAN) | None 

j Builds up function stack (LFARIN [None 

I. f + -j 

(Builds up argument stack (LFCOM (None 

j. 4 + „__ , 

[Move generated code to output block | LFMOVE (MV3 (KT> 

(Generates in-line code | LFE0F2 (MAXB, MAXD, MAXL, MAXS f MINE, MIND, 

1 | (MINL, MINS f MODE, MODD, MODL, MODS, 

| | (ROUNDB, ROUNDD, ROUNDL, ROUNDS 

L . . _X . . X 



Table Mil. Phase MI Routine/Subroutine Directory 

r . . T .. . . 

| Routine/Subroutine | 
| 



Function 



LFARIN 
LFCOM 
LFE0F2 
LFMOVE 

MAXB/MINB (MJ) 
MAXD/MIND (MJ> 

MAXL/MINL (MJ> 

MAXS/MINS (MJ> 

MODE CMJ) 
MODD (MJ> 

MODL (MJ> 

MODS (MJ> 

ROUNDB 
ROUNDD 

ROUNDL 

ROUNDS 



Builds up function stack. 

Builds up argument stack. 

Calls subroutines to generate in-line code. 

Moves generated code to output block. 

Generate code for MAX/MIN function with fixed binary arguments. 

Generate in-line code for MAX/MIN function with fixed decimal 
arguments . 

Generate in-line code for MAX/MIN function with long floating-point 
arguments. 

Generate in-line code for MAX/MIN function with short floating-point 
arguments. 

Generates in-line code for MOD function with fixed binary arguments. 

Generates in-line code for MOD function with fixed decimal 
arguments. 

Generates in-line code for MOD function with long floating-point 
arguments. 

Generates in-line code for MOD function with short floating-point 
arguments. 

Generate in-line code for ROUND function with fixed binary argument. 

Generates in-line code for ROUND function with fixed decimal 
argument . 

Generate in-line code for ROUND function with long floating-point 
arguments . 

Generate* in-line code for ROUND function with short floating-point 
arguments . 
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Table MK. 
r 



Phase MK Pseudo-Code In-Line Functions 3 



Statement or Operation Type 



- T T _ 

| Main Processing | 
I Routine I 



Subroutines Used 



I— 

| Scans text 

! 

(Builds up function stack 



(PHASE KT (SCAN) j None 
„ + + 

| LFARIN | None 



-H 



ILFCOM 



(Builds up argument stack 

i. + 

| Move generated code to output block | LFMOVE 



INone 



JMV3 (KT) 



H 



[Generates in-line code 



I LFEOF2 



(DIM, HBOUND, LBOUND, LENGT, SIGNFB, 
(SIGNFD, SIGNL, SIGNS, FREBIF 

-± 1 



Table MK1. Phase MK Routine/Subroutine Directory 

r . — T 

I Routine/ Subroutine 1 



Function 



f- 



H 



DIM 

FREBIF 

HBOUND 

LBOUND 

LENGT 

LFARIN 

LFCOM 

LFEOF2 

LFMOVE 

SIGNFB 

SIGNFD 

SIGNL 

SIGNS 



Generates code for DIM function. 

Generates code for FREE function. 

Generates code for HBOUND function. 

Generates code for LBOUND function. 

Generates code for LENGTH function. 

Builds up function stack. 

Builds up argument stack. 

Calls subroutines to generate in-line code. 

Moves generated code to output block. 

Generates code for SIGN function with fixed binary argument. 

Generates code for SIGN function with fixed decimal argument. 

Generates code for SIGN function with short floating point argument. 

Generates code for SIGN function with short floating point argument. 
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Table ML. Phase ML Pseudo-Code Calls and Functions 



H- 



Statement or Operation Type 



- T T - 

(Main Processing | 
I Routine 



Subroutines Used 



I Scans text 



H 



| PHASE KT (SCAN) (None 
_ + __ + 

I FPFNAR | None 



[Identifies argument of procedure 
| invocation 

(Selects generic built-in function |FPBIF |FPARD1 






| Selects PL/I generic entry name 

L .. 



IFPGAR 



JFPARD2, FPARD3, GNSECO 



Table ML1. Phase ML Routine/Subroutine Directory 



r — ■ T' ■ 

| Routine/ Subroutine | 

FPA01 (Scans for next argument, 

FPARD1 



Function 



FPARD2 

FPARD3 

FPBIF 

FPEPCO 

FPFNAR 

FPGAR 

GNFM2 

GNSECO 



Obtains parameter descriptions relating to built-in function 
arguments. 

Obtains successive parameter descriptions relating to the entry 
description of a PL/I generic procedure. 

Obtains and stacks full parameter description of a PL/I generic 
procedure. 

Selects generic built-in functions. 

Constructs an entry parameter. 

Identifies arguments of procedure invocations. 

Selects PL/I generic entry name. 

Replaces generic reference testing for uniqueness. 

Makes entry in stack of parameter descriptions. 



Subroutines Used 



Table MM. Phase MM Pseudo-Code Calls and Functions 

1 (Main Processing) 

I Statement or Operation Type | Routine | 

(Scans text (PHASE KT (SCAN) (None 

(Scans list, counts arguments and ( CFCALL (CFARID, CFFBIR, CFFDVS, CFMVTR, 

(identifies storage class | (CFMVCD 



— I 



(Rescans list and generates calling (CFCFSS 
| sequence for library routine [ 
I I 



(CFARHA, CFCALP, CFBIFH, CFMLBR, 
|CFMVCD f CFNEST, UTTMPW f CFA1F1, 
(BASED 

-X ._. , 
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Table MM1. Phase MM Routine/Subroutine Directory 



| Routi ne/ Subrout i ne j 
j. _ 



Function 



Generates relocation code for based variables. 

Initializes phase. 

Places address of invoked routine at the head of its argument list. 

Generates calling sequence. 

Counts arguments and sets STATIC/AUTO flag. 

Further built-in function identification with relevant parameter 
setting. 

Restores previous environment. 

Tests nature of function found. 

Restores pointer to start of invocation. 

Scans lists, counts arguments, identifies storage class. 

Completes calling sequence and, if necessary, generates code to ini- 
tialize dope vector. 

Tests for nested function. 

Rescans list and generates calling sequence for Library routine. 

Transfer vector after first scan. 

Identifies built-in functions, sets parameters for calling sequence 
generation. 

Reserves output text area for generation of code to initialize dope 
vector when a function returns a string. 

Generates code to set up result dope vector. 

Generates code to place result address in argument list. 

Generates code to move a skeleton parameter list which is greater 
than 256 bytes. 

Generates pseudo-code into the output text block. 

Generates triple into the output text block. 

Handles a nested situation. 

Sets parameters to produce special calling sequences. 

Allocates one word of workspace. 



[BASED CMO) | 


| BEGIN 




| CFALF1 


(MO) | 


[CFARHA 




| CFARID 


(MO) | 


| CFBIFH 




|CFB04 




[CFB021 




|CFB036 




| CFCALL 




[CFCALP 




|CFC03C 




| CFCFSS 




| CFEXIT 




| CFFBIR 




| CFFDVS 


(MN) | 


|CFL06 




|CFL0**3 




|CFMLBR 


(MN) | 


| CFMVCD 




(CFMVTR 




(CFNEST 




|CFY007 




[UTTMPW 


(MN) | 
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Table MP. Phase MP Pseudo-Code BUY Reorder 

r — ' — ■ ■ — t — ■ 



H 



Statement or Operation Type 



Subroutines Used 



[Main scan routine for phase 



T . . y 

(Main Processing) 
I Routine | 
+ _„„. + ^ 

|MP1 JSCAN(KT), ZDRFAB, ZTXTRF, ZUERR | 

± . jl_. . _, . J 



Table MP1. Phase MP Routine/ Subroutine Directory 



j Routine/Subroutine j 



Function 



UT05 
MP1 

MP3 
MP4 
MP 4 A 
MP8 

MP23 

MP26 

MP27 

MP28 

MP29 

MP30 

MP31 

MP86 

MP87 

MPS 

SCAN(KT) 

ZDRFAB 

ZTXTRF 

ZUERR 



Adds SELL dictionary reference to SELL list if not already there. 

Main controlling routine for rearranging BUY and SELL statements 
involved in obtaining VDAs for adjustable length string temporaries. 

Processes EOP triple. Releases control of phase. 

Processes BUYS triple. 

Processes BUYX triple. 

Continues text scan if not string or arithmetic data, or not 
structure. 

Continues scan of text. 

Processes BUYS triple. 

Processes BUY ASSIGN triple. 

Processes BUY triple. 

Processes SUBSCRIPT triple. 

Processes ASSIGN triple. 

Accesses top stack entry. 

Tests triple for BUYX, and processes. 

Scans for BUYS, BUY, and SELL triples. 

Processes SELL triple. 

General scan routine. 

Converts dictionary reference to absolute address. 

Changes absolute address to a text reference. 

Makes error message entries. 
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Table MS. Phase MS Pseudo-Code Subscripts 



_ T . T _ 

[Main Processing | 
| Routine j 



Statement or Operation Type 



Subroutines Used 



h 

1 Scans text 

f „ 

(Calculates element offset 



V- 



| SBSCAN 

-+ 

|SBSTIH 

1 
I 



| None 



|SBASS, SBCOBI, SBGNOR, SBMVCD, 
JSBNEST, SBSUBP, SBSUDV, SBXOP, 
fUTTEMP f SBOPT, SBFSUB , UTTMPH 



[checks subscript range 



I SBSBRN 



| None 
-X 



Table MSI, Phase MS Routine/Subroutine Directory 



r . T _ 

| Routine/Subroutine | 
h 



Function 



SBASS 

SBCOBI (MT) 
SBCOMR (MT> 
SBERR CMT) 
SBFSUB 

SBGNOR (MT) 
SBMVCD (MT) 
SBNEST (MT) 
SBOFFS (MT) 
SBOPT 

SBSBRN (MT) 
SBSCAN 
SBSTIH 
SB SUB I 
SBSUBP (MT) 
SBSUDV 

SBS05 
SBS06 
SBS002 
SBS029 
SBS059 
SBTRID 
SCAN (KT) 
UTTEMP (MT) 
UTTMPH (MT) 



Updates scan pointer over an assignment. 

Converts subscript to binary integer. 

Handles COMR triple 

Puts error message into dictionary. 

Tests the FIRST flag setting if it is not already set, and exits 
unless FIRST was unset on entry 

Allocates an odd symbolic register. 

Generates pseudo-code and moves it into output text block. 

Handles nested subscript situation. 

Handles OFS triple 

Calculates element offset in optimizable cases. 

Checks subscript range. 

Branches to KT for scan. 

Generates code to calculate element offset. 

Saves array name. 

Handles end of subscript list. 

Generates code to set up the dope vector of an array of adjustable 
strings. 

Generates code to multiply subscript by multiplier. 

Compiles code to convert to fixed binary. 

Checks for occurrence of subscript. 

Generates code to multiply subscript by 4 or 8. 

Generates multiply halfword code modifications 

Scans for comma, subscript prime, or subscript triple. 

Controlling scan of text. 

Allocates workspace. 

Gets two bytes of storage on a halfword boundary 
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Table NA. Phase NA Pseudo-Code Branches, ON, Returns 

r ■ ~ — t- ' ' -y 

Main Processing 
Statement or Operation Type | Routine 



Subroutines Used 



Initializes text block 



NAINIT 



SCINIT (KT) 



I— 



-+- 



Scans text for next triple of 
interest to user 



NASC1, NASC2 f 
NASC3 



SCI, SC2, SC3 (all in KT) 



Processes STOP statements 



STOP 



NAUT1 



Processes EXIT statements 



Processes IF triples 



EXIT 
IF 



NAUT1 



+ 



NAUTD, NAUT16, NAUT21, ZSTUT1 



Processes ON triples 



ON 



-+ 



NAUTD, NAUT6, NAUT16 f SC5 (KT) 



Produces Library call at end of 
each PROCEDURE or BEGIN block in 
source text 



PROCP, BEGINP 



NAUT1 



h 



h 



Processes RETURN triples 



RETURN 



NAUT1 



Processes function RETURN state- 
ments for one data type 



NA3002 



NAUTB, NAUTCA, NAUT1, NAUT12 



h 



H 



Processes function RETURN state- 
ments for more than one data type 



NA3013 



NAUTA, NAUTB, NAUTCA, NAUTD, NAUTF, 
NAUT1, NAUT7, NAUT8 , NAUT9 , NAUT11 f 
NAUT12 



+- 



H 



Processes GOTO triples 



GOTO 



NAUTD 



Processes GOLN triples 



GOLN 



NAUTD 



Processes GOOB triples 



GOOB 



NAUT5, NAUTD, NAUT16 , SC5 (KT) 



Processes SIGNAL triples 



SIGNAL 



NAUTD, NAUT6, NAUT16, NAUT8, 
NAUT10, NAUT21 



J. . 

| Processes 

L 


REVERT triples 


_. . + „„„™ 

| REVERT 
X 




[NAUTD, 


SC5 


(KT) 


Table NA1. 


Phase NA Routi 


ne/Subroutine 


Direc 


tory 


(Part 1 of 


2) 




r t 
| Routine/Subroutine | 
j + _ 










Function 







EXIT 

GOOB 

GOTO 

GOLN 

IF 

NAINIT 

NASC1/NASC2/NASC3 

NAUTA 

NAUTB 

NAUTCA 

NAUTD 



Processes EXIT statements. 

Processes GOOB triples. 

Processes GOTO triples. 

Processes GOTO label number (GOLN) triples. 

Processes IF triples. 

Initializes text blocks. 

Scan text for next triple of interest to user. 

Generates pseudo-code to test switch value at RETURN (function 
value) statement for more than one data type. 

Generates assignment triple to RETURN function result. 

Generates assignment triple set up by NAUTB. 

Generates indicated pseudo-code. 
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Table NA1 . Phase NA Routine/ Subroutine Directory (Part 2 of 2) 

Function 



r t- 

| Routine/ Subroutine | 



h 



-+- 



NAUTF 
NAUT1 
NAUT2 

NAUT5 

NAUT6 
NAUT7 

NAUT8 

NAUT9 

NAUT11 

NAUT12 

NAUT16 

NAUT17 
NAUT18 
NAUT21 

NA1100 

NA1140 

NA3002 

NA3005 

NA3013 

NA8003 

NA8010 

NA8012 

ON 

PROCP/BEGINP 

RETURN 

REVERT 

SIGNAL 

STOP 

ZSTUT1 



Generates pseudo-code to branch to EQU value. 

Generates call to indicated library routine. 

Moves indicated pseudo-code, deletes current triple, continues text 
scan. 

Makes dictionary entry for indicated library routine. 

Updates current symbolic register value. 

On entry, register BR points at an entry label dictionary entry. On 
normal exit from the routine, register BR points at the next label 
dictionary entry. Abnormal exit indicates that there are no further 
labels on the current PROCEDURE or ENTRY statement. 

Bump EQU* value for branch pseudo-code item. 

Bump return switch value to be used for current entry label. 

For current entry label, generate appropriate EQU* pseudo-code item. 

Converts current label dictionary reference to an absolute address. 

Converts dictionary reference of triple second operand to absolute 

address, loads address into register BR. 

Makes dictionary entry for maximum negative number. 

Makes indicated dictionary entry. 

Generates pseudo-code to compare source bit string, making library 
comparison routine dictionary entry, if necessary. 

Tests for SNAP. 

Using NAUTD, generates code for ON-units. 

Processes function RETURN statements for one data type. 

Outputs assignment triple. 

Processes function RETURN statements for more than one data type. 

Generates pseudo-code for branch and mask, labels. 

Converts ID to bit- string. 

Outputs pseudo-code. Compares bit-string to zero. 

Processes ON triples. 

Produce Library call at end of each procedure in source text. 

Processes RETURN triples. 

Processes REVERT triples. 

Processes SIGNAL triples. 

Processes STOP triples. 

String utility in Phase LV to provide a dope vector for a specified 
string. 
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Table NG. Phase NG Pseudo-Code Operating System Services 

r 

I 



Statement or Operation Type 



"T ' — ' T" 

(Main Processing! 
I Routine 



Subroutines Used 



H 



JCALIB, FALUT1 
1 
-+- 



J Processes ALLOCATE statements for [ALOCAT 
(based variables | 

t +~- 

[Processes DELAY statements (DLAY (CALIB, INTEG, SCAN CKT) 

(Processes DISPLAY statements |DSPY |CALIB f CHAR, 1NDLST, 

| | | SCAN CKT), STORAD 



, „ .„ + 

(Processes FREE statements for based|FREE 
(variables ( 

j. ._+_ 

\ Processes WAIT statements (WAIT 

L . . — i . 



-H 



|CALIB f FALUT1 



| CALIB, INTEG, SCAN (KT) f OPLAST 



Table NGl. Phase NG Routine/Subroutine Directory 



T- 



l Routine/ Subroutine | 



Function 



h 



(CALIB 

(CHAR (NH) 

|DLAY 

|DSPY 

|DSPY3 

(DSPY4 

|DSPY10 

|ENDLST 

|FALUT1 

| INTEG (NH) 
|NG0 
(OPLAST 
(STORAD 



(Generates part of calling sequence and makes dictionary entry for 
[Library routine. 

[Converts a given argument to character string. 

[Processes DELAY statements - 

(Processes DISPLAY statements. 

j Tests that operand is character variable. 

[Makes dictionary entry for parameter list. 

| Scans for REPLY option . 

j Completes parameter list and makes dictionary entry for it. 

| Examines argument of ALLOCATE or FREE statements to see if variable 
| is based and forms RDV in workspace to prepare for call to the 
library. 

[Converts a given argument to an integer. 

[Scans to next statement. 

| Builds up parameter list in workspace. 

| Stores an address in a parameter list. 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (Part 1 of 3) 



I—- 

Initialize Phase NJ by calling in 
block NK and initializing SCAN 

utility 



h 



h 



Statement or Operation Type 



Initializes switches and flags to 
indicate start of new statement • 
Determines RECORD-oriented I/O verb 
and goes to appropriate routine 



Main Process 
Routine 



ing 



STRTNJ 



NUSTAT 



Subroutines Used 
ZLOADW (AA> , SCINIT (KT) , SCI (KT) 



TXTEST 



h 



Gets next triple of interest , 
converts to internal code and 
selects the appropriate routine to 

process it 



SCNOPT 



SC3 (KT) f TXTEST, SCAN01, CMPERR 
TXTERR, ZABORT (AA) 



Processes FILE option of RECORD- 
oriented I/O by placing dictionary 
reference of FILE Declare DCB in 
the appropriate slot of the parame- 
ter list* The parameter list is in 
STATIC if file constant, WORKSPACE 
if file parameter 



FILOPT 



TXTARG, DYNMPL, LAONLY, ST DROP, 
CMPERR, TXTERR, WRKSPC, MVPSCD, 
ZTXTRF (KT), SYMREG, MV3 (KT) 



|- 



H 



Establishes the record dope vector 
(RDV) for the triple operand and 
places the address in the second 
slot of the parameter list unless 
the operand of the INTO triple is 
A varying string, in which case it 
places the address of the string 
dope vector of the operand in the 
second slot in the parameter list. 



INTFRM 



TXTARG, CMPERR, DYNMPL, LAONLY, 
STDROP, LAOSM2, CRDV, TXTERR, 
ZABORT (AA) , WRKSPC, MVPSCD, TXTRF, 
SYMREG, ZDRFAB (AA) , CALLIB, 
ZDICRF (AA) , REFRDV, SCALAR, 
PNTRDR, BSDRDV 



Processes the operand of the 
LOCATE triple by establishing the 
RDV for the triple operand and 
placing this address in the second 
slot of the parameter list* It 
establishes the pointer qualifier 
of the based variable and saves 
this, either to be used, or to be 
overwritten by the operand of a SET 
triple. It establishes a compiler 
label and puts this in the third 
slot of the parameter list in order 
to tell the library where to 
return, so that code assigning the 
pointer value returned in the RDV 
to the saved pointer operand is 
avoided. It then initializes the 
based variables just allocated 



LOCOPT 



TXTARG, ZDICRF, PNTRDR, SCALAR, 
LOCRDV, CMPERR 



h 



-H 



Processes KEYTO option of RECORD- 
oriented I/O by verifying that its 
argument is a character string, 
then placing it in the appropriate 
parameter list slot, which may be 
in STATIC or WORKSPACE 



KYTOPT 



TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUT2 (STRUT2 in 
LV) , LAOSM2, LAOS Ml, TXTERR, 
ZDRFAB (AA) , SC5 (KT) , WRKSPC, 
MVPSCD, MV3 (KT), SYMREG 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (Part 2 of 3) 



Statement or Operation Type 



Mam Process 
Routine 



mg 



Subroutines Used 



H 



Processes the KEY or KEYFROM option 
of RECORD-oriented I/O by 
converting the argument to a 
character string if it is not 
already a character string and 
placing the result in the appropri- 
ate parameter list slot; this is 
either in STATIC or WORKSPACE 



KEY OPT 



TXTARG, SCALAR, DYNMPL, LAONLY, 
STDROP, NXTMPD, ZSTUT1 (STRUT1 in 
LV) , LAOS Ml, LAOSM2, TMPSEL, TXTERR 



h 



. + 



Processes the IGNORE option of 
RECORD-oriented I/O by first 
checking that the argument is a 
scalar and then converting to a 
binary fixed integer if it is not 
already a binary fixed integer. 
The address of the argument is 
placed in the appropriate parameter 
list slot in STATIC or WORKSPACE 



IGNOPT 



TXTARG, SCALAR, CINTEG, DYNMPL, 

LAONLY, STDROP, MVPSCD, WRKSPC f 

MVTRPL, LAOSM1, ZDRFAB CAA> , 

CMP ERR, TMPREF, NXTMPD, MV3A (KT) , 

WRKSPC, SYMREG, MV3 CKT) 



h 



. + . 



H 



Processes the event option of 
RECORD-oriented I/O by checking 
that the argument is a scalar EVENT 
variable and placing its address in 
the appropriate parameter list 
slot. The parameter list is either 
in STATIC or WORKSPACE, depending 
upon the storage class of the 
argument. 



EVTOPT 



TXTARG, DYNMPL, LAONLY, STDROP, 
NXTMPD, TMPREF, TXTERR, WRKSPC, 
MVPSCD, ZTXTRF (KT) , SYMREF, 
MV3 (KT) 



Processes the pointer operand of a 
SET triple. If part of a READ 
statement, the address of the 
pointer variable is placed in the 
second slot of the parameter list. 
If part of a LOCATE statement, the 
pointer operand overwrites the 
pointer taken from the based vari- 
able in the LOCATE statement, to be 
used in the pointer assignment code 
produced by ENDIO. 



SETOPT 



TXTARG, SCALAR, NXTMPD, DYNMPL, 
TMPREF, STDROP, TXTERR 



At end of I/O statement, places 
REQUEST_CODE (i.e., IODEF) in sta- 
tic constant chain, puts STATIC 
parameter list in STATIC chain. 
Creates external Library calling 
sequence for RECORD-oriented I/O 
statement as follows: 

EPRM 

LA 1, PARM.LIST 

L 15, RECORD. 10. LIBRARY. ROUT 

BALR 14,15 

EPRM 



ENDIO 



ZDICRF CAA) , LAONLY, LAOSM1, 
CALLIB, MVPSCD, ZTXTAB (AA>, SELL, 
SC3 CKT) SYMREG, TMPREF, 
ZDRFAB, MVTRPL, RCBCMN 
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Table NJ. Phase NJ Pseudo-Code RECORD I/O (Part 3 of 3> 



Statement or Operation Type 



If there is a WORKSPACE parameter 
list, it updates the MVC or parame- 
ter list from STATIC to WORKSPACE. 
It checks whether a LOCATE state- 
ment is being processed, for which 
it generates pseudo-code to assign 
the pointer value from the RDV to 
the pointer variable and to ini- 
tialize the REFER variable of a 
self -defining structure- It 
generates an allocate triple to 
indicate possible initialization of 
TASK and/or EVENT variables, and a 
compiler label triple to mark the 
end of initialization code for the 
library. It generates any SELL 
triples accumulated throughout the 
statement on SELL chain. It can- 
cels the RECORD-oriented I/O option 
triple codes from the SCAN TRT int- 
erest table. It gets the next tri- 
ple of interest and goes to NUSTAT 
to process as a new statement. 
J 

Indicates presence of NOLOCK 
option. 



Main Processing 
Routine 



Subroutines Used 



ENDIO (cont'd) 



NLKOPT 



None 



Delete the SELL triple encountered 
during scan of RECORD-oriented 
I/O statement but puts dictionary 
reference in the SELL chain so that 
SELL triple can be regenerated at 
end of I/O statement 



SELL routine 
at SVSELL or 
TMPSELL entry 
point 



ZDRFAB (AA) , MV3A (KT) 



At end of program, releases own 
modules and turns control over to 
next requested phase. 



PRGEND 



RLSCTL 
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Table NJ1. Phase NJ Routine/ Subroutine Directory (Part 1 of 2) 

I ' T ' " ' ' "" • 

I Routine/ Subroutine | Function 

j. + _. . 

BSDRDV(NK) [Entry point to CRDV routine which marks it as processing a based 

variable in an INTO or FROM option. 

CALLIB (Creates pseudo-code to call library routine; indicates call in dic- 

tionary if not previously noted. 

CINTEG I Checks whether argument is a binary fixed integer. 

CMPERR I Indicates compiler error and ABORT, error code in HOLD register. 

CRDV (NK) (Constructs a record dope vector (RDV) entry in WORKSPACE. If the 

dope vector descriptor bit is on, then the routine generates a 
library call to generate the RDV. If the variable has static 
extents and is not a string, the RDV is constructed from information 
in the RDV dictionary entry. If the variable is a string, then the 
RDV is constructed from its string dope vector. 

DEFER | Indicates; compiler error in the case of a deferred feature not 

detected by earlier phase. 

DELETE j Establishes DELETE code as REQUEST__CODE. 

DYNMPL (NK) I Establishes a parameter list in workspace if one is not already 

established. Calculates workspace offset to particular slot 
requested. Establishes a symbolic working register. Establishes 
skeleton pseudo-code for LA, ST, and DROP of register into workspace 
offset. 

ENDIO | Handles operations at end of I/O statement. 

EVTOPT {Processes EVENT option. (Not implemented in second version.) 

FILOPT (Processes FILE option. 

IGNOPT (Processes IGNORE option. 

INTFRM (Processes INTO/FROM option. 

KEYOPT (Processes KEY or KEYFROM option. 

LAONLY (NK) (Outputs pseudo-code for LA into symbolic work register of a dic- 
tionary reference without any offset modifiers. 

LOCRDV (NK) (Entry point to CRDV routine which marks it as processing a based 

variable of a LOCATE statement. 

KYTOPT |Process€»s KEYTO option. 

LAOSM1 (NK) ( Establishes pseudo-code for a LA instruction into a symbolic work 

register with the address of WORKSPACE and a literal offset which is 
pointed to the argument register. 

LAOSM2 (NK) (Generates LA pseudo-code in which both base and offset are in 

registers. 

MVPSCD (NK) (Puts pseudo-code assembled in pseudo-code area into output text 

block. 

MVTRPL (NK) ( Invokes SCAN utility to move generated triples into output text 

block. 

NLKOPT (Indicates presence of NOLOCK option. 
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Table NJ1 . Phase NJ Routine/ Subroutine Directory (Part 2 of 2) 

Function 



r T _ 

| Routine/Subroutine | 



| NUSTAT 
(NXTMPD 

|PNTRDR 

I PRGEND 
| RCBCMN 
(READ 

|REFRDV CNK) 

| REWRIT 
(SCALAR 

| SCAN 01 

jSCNOPT 
(SCRHOP 

| SELL (NK) 

jSTDROP (NK) 

|STRTNJ 
(SYMREG CNK) 
(TMPREF (NK) 

(TMPSEL (NK) 

(TXTARG 

| TXTERR 
| TXTEST 

| UNLOCK 

| WRITE 
IWRKSPC (NK) 



--+_ 



I Handles operations at start of new statement. 

Invokes SCAN utility to get next triple, which is checked to see if 
| it is a TMPD; if not, it is an error, 

| Establishes the seven-byte pointer information slot in a BASED vari- 
able dictionary entry, 

| Releases control to next phase at end of program. 

J Commons the dictionary entries of request code blocks. 

(Establishes READ code as REQUEST__CODE ; establishes parameter list 
| size. 

(Establishes the address of the RDV dictionary entry in the ARG reg- 
ister when given the data variable dictionary address in INDX1. 

| Establishes REWRITE code as REQUEST_CODE . 

| Confirms that dictionary code byte refers to scalar item; ascertains 
[whether item is a constant. 

| Indicates compiler error in the case of a deferred feature not 
[detected during Read-In. 

| Gets next triple of interest, branches to appropriate routine. 

[searches options, inserts RECORD-oriented I/O option entries into 
|SCAN TRT interest table. 

| Generates SELL triples for all dictionary references in the SELL 
| chain. 

(Outputs pseudo-code to ST contents of symbolic work register into 
| parameter list slot in workspace set up by DYNMPL, and the drop of 
[the symbolic register. 

| Initializes phase. 

[Establishes symbolic work register. 

[Generates the appropriate LA pseudo-code to load the address of the 
| temporary described by TMPD. 

[Adds temporary entry to SELL chain for generation of SELL triple 
j u pon compl et i on . 

[processes second argument of triple. If dictionary reference, esta- 
blishes absolute address in INDX1. Returns to LR if zero, i.e., 
| TEMP, LR+4 if dictionary reference. If null, indicates compiler 
| error. 

(Writes error message. 

[Converts function code of triple interest TRT table to internal key, 
|and invokes PRGEND if end of program is indicated. 



[Establishes UNLOCK code as REQUEST_CODE. 
| version. ) 

(Establishes WRITE code as REQUEST_CODE. 



(Not implemented in second 



(Establishes the requested workspace area, starting on fullword 
j boundary . 
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Table NM. 
r 



Phase NM Pseudo-Code Executable I/O 



_ T . T - 

| Main Processing ( 
1 Routine I 



h 



Statement or Operation Type 



Subroutines Used 



-H 



Processes GET and PUT statements 



[GET (INSERT, STORAD, INSTFL f GENPC, 
| JGENTR, MVTRSP, ENDLST f CALIB f 
I | CHAR f INTEG, UTTMPW, SRCERR, 
| | SCAN CKT) f STRUT1 (LV> f STRUT2 CLV) 
. „ + _. _. _ + , 



I 

Processes OPEN and CLOSE statements) OPEN 

I 
I 



L . 



INSERT, STORAD, INSTFL, GENPC 
(GENTR, MVTRSP, ENDLST, CALIB, 
(CHAR, INTEG, UTTMPW, SRCERR, 
(SCAN CKT), STRUT1 (LV) # STRUT2 (LV) 

.. JL . . X__. -. _J 



Table NM1. Phase NM Routine/ Subroutine Directory 



— i 

I 



j Routine/ Subroutine j 



Function 



CALIB CNN) 

CHAR CNN) 
ENDLST CNN) 
GENPC CNN) 
GENTR CNN) 
GET 
GETOO 
GET20 
GET 8 5 

INSERT CNN) 
INSTFL CNN) 
INTEG CNN) 
MVTRSP CNN) 
NMR1 
OPEN 
OPEN 00 
SRCERR CNN) 
STORAD CNN) 
UTTMPW CNN) 



Generates part of calling sequence and makes dictionary entry for 
Library routine. 

Converts a given argument to character string. 

Completes parameter list and makes dictionary entry for it. 

Moves pseudo-code to output. 

Moves generated triples to output. 

Processes GET and PUT statements . 

Initializes switches for GET/PUT. 

PAGE option. 

Processes end of I/O statement. 

Inserts dictionary reference in parameter list. 

Inserts file reference in parameter list. 

Converts a given argument to integer. 

Moves data and format list triples to output. 

Begins scan for triples of interest. 

Processes OPEN and CLOSE statements. 

Initializes switches for OPEN/ CLOSE. 

Makes error dictionary entry. 

Generates pseudo-code to store symbolic register in parameter list. 

Obtains temporary workspace. 
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Table NT. 

r 



Phase NT Pseudo-Code Data and Format 



Initializes phase f obtains scratch 
storage 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



NTOOOO 



None 



h 



Scans text 



NT0003 



K 

Collects remote format items and 
saves until end of block 

,. 

Associates remote format items with 
data list items 



NT0011, NT0014, NT0017, NT0021, 
NT0023, NT0024, SC2 (KT> 



NT0011 



None 



NT0014 



NTUT10 



I" 



Makes entries for Library routines 
required for EDIT-directed I/O and 
copies skeletons for phase NU into 
scratch storage, then releases 
phase 



NT0017 



NTUT20 



Identifies type of data list item 
and enters the type code in a list 

, 

Associates format and data list 
items and marks INCLUDE matrix 



NT0021 



None 



NT0023 



NTUT10 



h 



Identifies type of format list item 
and enters the type code in a list 



NT0024 



None 



h 



Sets bits in INCLUDE matrix to 
represent STREAM I/O conversion 
requirements at execution time 



NTUT10 



I None 



Makes dictionary entry for Library INTUT20 
Routine 



Table NT1. Phase NT Routine/Subroutine Directory 



— +- 



None 



j Routine/Subroutine j 



Function 



h 



NTOOOO 
NT0001 
NT0003 
NT0011 
NT0014 
NT0017 
NT0021 
NT0023 
NT0024 
NT1700 
NTUT10 
NTUT20 



Initializes phase, obtains scratch storage. 

Initializes phase address slots. 

Scans text. 

Collects remote format items. 

Associates remote format items with data list items. 

Makes entries for Library routines for EDIT-directed I/O, 

Identifies types of data list items. 

Associates format and data list items. 

Identifies types of format list items. 

No EDIT-directed I/O, therefore no scan pass. 

Sets bits in INCLUDE matrix. 

Makes dictionary entry for Library routine 
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Table NU. 
r 



Phase NU Pseudo-Code Data and Format Lists 

. .. T . T _ 

Main Processing) 
Routine | 



Statement or Operation Type 



I 

h 

| Generate Library calling sequences 

[for data items in DATA- directed I/O 

| statements 

| Generate Library calling sequences 
| for data items in LIST-directed I/O 
| statements 

(Generate code for data items in 
lEDIT-directed I/O statements 

j. 

| Scan text 

, . 

(Generate Library calling sequences 
I for format list items 



Subroutines Used 



NU0022 



INSERT, UT24 f UT11, UT23 



NU0023 

NU0024 
NU0002 



-H 



| INSERT, UTll r UT25 f UT14 ,UT23,UT09 



|UT09 f 14 



JSCI(KT), SC2(KT) f SC3CKT) 



H 



Table NU1. Phase NU Routine/Subroutine Directory 



NU0029 f NU0030 1 UT15, UT18 ,BCDCNV f UT10 
NU0033,NU0037, | 
NU0050 j 

JL 



j Routine/Subroutine j 



Function 

Convert decimal constant to binary. 

Add an entry to an argument list. 

Scan text. 

Generate Library calling sequence for DATA-directed data list item. 

Generate Library calling sequence for LIST-directed data list item. 

Generate cards for EDIT-directed data list item. 

Generate Library call for A or B format item. 

Generate Library call for E or F format item. 

Generate code for R format item. 

Generate Library call for P format item. 

Generate Library call for X, PAGE, SKIP, LINE, C, or COLUMN format 
item. 

Make dictionary entry for constant in EDIT or LIST list. 

Convert a constant entry to one of specified type. 

Generate Library calling sequence passing argument list. 

Generate code for intermediate result items in EDIT and LIST data 
lists. 

Make dictionary entry for FED or DED. 

Generate an assignment triple. 

Generate Library call code. 

Construct symbol table dictionary entry. 

Set bit in the INCLUDE matrix. 



|BCDCNV 


(NV> | 


1 INSERT 




1NU0002 


(NV) | 


|NU0022 




|NU0023 




|NU0024 


(NV) | 


|NU0029 


(NV) | 


|NU0030 


(NV) | 


|NU0033 


(NV) | 


JNU0037 


(NV) | 


|NU0050 


(NV) | 


(UT09 




JUT10 




|UT11 




|UT14 




I DTI 5 




|UT18 (NV) | 


|UT23 




(UT24 




|UT25 
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Table OB. Phase OB Pseudo-Code Compiler Functions 



Statement or Operation Type 



1 

Scans text for BUY, BUY ASSIGN statements and compil- 
er function and compiler pseu do- variables (see 
"Second File Statements" in Section 4) , and transfers 
to appropriate routine 



Main Processing 
Routine 



T 1 

Subroutines 
Used 



H 



STl 



SCAN (KT) 



h 



-H 



Replaces MTF compiler functions (see "Second File 
Statements" in Section 4) by pseudo-code move 
character instructions, adjusting the target field to 
controlled or temporary type 2 workspace where 
necessary 

j 

Replaces ADV compiler functions (see "Second File 
Statements" in Section 4) by pseudo-code instructions 
to load specified element of a dope vector into a 
register 



MTFR 



BUFIZE, FR"ST0P, 
SC3 (KT) 



4 



ADVR 



SC3 (KT) 



h 



h 



Replaces SDV compiler functions (see "Second File 
Statements" in Section 4) by instructions to load the 
maximum length from a string dope vector into a 
register 



SDVR 



SC3 (KT) 



-H 



Replaces compiler pseudo- variable triples and com- 
piler assignment triples by pseudo-code instructions 
which store the value assigned in specified part of 
dope vector 
,. 

Remove BUY, BUY ASSIGN, and SELL statements for 
scalar non-adjustable temporary variables from the 
text, and allocate storage in the pseudo- code work- 
space for the temporaries 

} 

Generates code to drop a symbolic register, or mark a 
literal register not wanted 



ST4 



BUFIZE, STACK, 
MV3A (KT), 
FRSTOP, DROPRG, 
USTACK, SC5 (KT) 



-H 



ST8, ST10, ST7 



SC2, SC3 
(both in KT) 



+- 



-H 



DROPRG 



None 



H 



-H 



Determines whether the target dictionary reference of 
MTF function, or ADV or SDV pseudo-variable is con- 
trolled or a temporary type 2, If it is, the dic- 
tionary reference is replaced by the dictionary 
reference of the controlled or temporary type 2 work- 
space, with the appropriate offset, if the target is 
a structure base element 



FRSTOP 



SETDVF 



\- 



Stack and unstack the information specifying the tar- 
get field of compiler pseudo- variable assignment 

j. 

Calculates the offset of the dope vector of a struc- 
ture base element from the start of the structure 
dope vector 

j 

Place triples from the source text in an internal 
buffer. 



STACK, USTACK 



None 



SETDVF 



None 



-H 



BUFIZE 



SC5 (KT) 
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Table OBI. Phase OB Routine/Subroutine Directory 



[Routine/ Subroutine) 



Function 



[ADVR 

|AT7 

|AT8 

IBUFIZE 

|BY5 

|BY19 

| DROPRG 

[ FRSTOP 

|MTFR 

|SDVR 

[ SETDVF 

| STACK/USTACK 

|ST1 

|ST4, ST6 

|ST7,ST8,ST10 



[Replaces ADV compiler functions by pseudo-code instructions to load 
| the specified element of a dope vector into a register. 

[Generates pseudo-code. 

[Replaces operand by workspace reference. 

[Places triples from the source text in an internal buffer. 

[Tests length of string. 

[processes string temporary (dope vector only). 

[Generates code to drop a symbolic register or mark a literal regis- 
jter not wanted. 

[Replaces the target field of MTF function or compiler pseudo- 
| variable by controlled workspace where necessary. 

[Replaces MTF compiler functions by pseudo-code move character 
, instructions. 

[Replaces SDV compiler functions by pseudo-code instructions to load 
[the maximum string length into an object register. 

[Calculates the offset from the start of a structure dope vector to 
[the dope vector of a particular base element. 

[Stack and unstack information specifying target field of compiler 
[pseudo-variable assignment. 

| Scans text for BUY and BUY ASSIGN statements r compiler functions, 
[and compiler pseudo- variables. 

[Replaces compiler pseudo-variables and compiler assignment triples 
| by pseudo code instructions to set the assigned expression, con- 
j verted if necessary in the specified part of a dope vector. 

[Remove BUY f BUY ASSIGN, and SELL statements for fixed scalars from 
jthe text., and allocate space for the temporary variables in the 
j pseudo-code workspace. 



Table OD. Phase OD Pseudo-Code Assignment 



_ T „ T _ 

[Main Processing) 
I Routine 



Statement or Operation Type 



Subroutines Used 



(Get block of scratch core | SCRCOR 
} .. + 

[Move routines, constants aid tables) MOVTAB 
| to block | 

L . .. .. . JL . ._. 



(None 
. + __ 

(None 



Table OD1. Phase OD Routine/Subroutine Directory 



r . T _ 

| Routine/Subroutine | 
j 

| SCRCOR 

I 

I MOVTAB 



Function 



[Obtains block of scratch core. 

! 

[ Moves routines, tables and constants into scratch core. 
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Table OE. Phase OE Pseudo-Code Assignment 



1 



Statement or Operation Type 



(Main Processing) 
I Routine j 



Subroutines Used 



(Generates pseudo-code for assign- JASSOO 

|ment triples | | 

|. + + 

| Generates Library calling sequences | ALLOC, FREE, j CALIB 
|for ALLOCATE, FREE, BUY, and SELL |BUY, or SELL | 
| triples | j 

L X . i 



JASCOO, ASCDOO, ASDROP 



Table OE1. Phase OE Routine/Subroutine Directory 



r ■ T" 

| Routine/Subroutine | 

h 



Function 



ALLOC (OF) 

ASCOO 

ASCDOO 

ASDROP 

ASFBOO 

ASFDOO (OF) 

ASFLOO 

ASLOO 

ASPO00 

ASAROO 

ASSOO 

ASS032 

ASTROO (OF) 

BUY (OF) 

CALIB (OF) 

ENABLE 

FREE (OF) 

GENCNV 

GENRXO 

GENSSO 

GETDES 

RMNDX 

SBGTNR 

SELL (OF) 

SPASS (OF) 



Processes ALLOCATE triples. 

Inserts target types for constants. 

Controls assignment of real and complex data. 

Drops symbolic registers. 

Generates code for fixed binary assignments. 

Generates code for fixed decimal assignments. 

Generates code for floating-point assignments. 

Generates code for label assignments. 

Generates code for pointer/offset assignment. 

Generates library calling sequence for area assignment. 

Processes assignment triples. 

Tests for special assignment triple. 

Generates code for string and numeric field assignments. 

Processes BUY triples. 

Generates Library calling sequences. 

Enables for SIZE prefix option. 

Processes FREE triples. 

Generates convert macro instruction. 

Generates RX instruction. 

Generates SS instruction. 

Obtains operand description. 

Removes index from operand. 

Obtains next symbolic register. 

Processes SELL triples. 

Processes special assignment triples. 
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Table OG. Phase OG Library Calling Sequences 



H 



h 



Statement or Operation Type 



Scans triples and takes action on 
their values 



Scans pseudo-code deleting IGNORE 
items and detecting CONVERT items 



Examines fields of CONVERT, and 
determines whether the conversion 
is to be done in-line 
j ... _ 

Generates Library calling sequence 
h 



Main Processing 
Routine 



TRSCAN 



PCSCAN 



IEMOH 



MJG201 



Subroutines Used 



EOBIN ,TSCSNO, TSCCLB, TSCPRC, FMT001 , 
TSCEOP , TSCEP2 , JSC JMP , MOVITM, MOVOUT 



CNVFND f MOVITM f MOVOUT 
MJG201, IEMOI, CODCAL 



MJG203,MJG204,MJG298 






Generates in-line code for selected 
conversions 



IEMOI 



BITODI, FDTOFB, FIBFLT, DECFLT, PI CHAR 



h 



Generates in-line code for pictures 
containing not more than four of 
the insertion characters (/ # . 
blank) , if the target field is 
fixed decimal, fixed binary, float 
decimal or float binary 



IEMOL 



SILCON, MOVOUT 
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Table OGl. Phase OG Routine/Subroutine Directory 



r T _ 

| Routine/Subroutine | 
j 



Function 



| EOBIN 




|TSCSNO 




[TSCCLB 




| TSCPRC 




[FMTOOl 




| TSCEOP 




| TSCEP2 




| TSC JMP 




| MOVITM 




| MOVOUT 




ICNVFND 




|MJG201 


COH) | 


| CODCAL 


COH) | 


[MJG203 


(OH> | 


(MJG204 


(OH) 1 


(MJG298 


COH) | 


| BITODI 


COD | 


| FDTOFB 


COD | 


| DECFLT 


COD 1 


1 FIBFLT 


COD | 


[PICHAR 


COD | 


| SILCON 


COL) | 



Entered when an end of input block marker is detected. 

Processes SN, SN2, and SL triples. 

Processes CL triples. 

Processes PROC, PROC*, BEGIN, and BEGIN* triples, and sets up counts 
for work space requirements • 

Handles the workspace requirements for FORMAT and FORMAT LIST, 

Processes EOP triple. 

Processes EOP2 triples and terminates phase. 

when a JUMP triple is found the routine sets up a counting mechanism 
and enters PCSCAN. 

Moves from input an item which spans blocks. 

Moves an item to the output block. 

When a CONVERT is found passes control to IEMOH and outputs pseudo- 
code generated on return. 

Generates pseudo-code to call the Library conversion package. 

Given a DED generates a code byte used by the in-line conversions. 

Generates pseudo-code to point registers at data. 

Generates pseudo-code to call Library conversion module. 

Sets bits in include card matrix. 

Generates in-line code for binary to decimal conversion. 

Generates in-line code for decimal to binary conversion. 

Generates in-line code for decimal to float conversion. 

Generates in-line code for fixed binary to float conversion. 

Generates in-line code for picture to character string conversion. 

Generates in-line code for pictures containing not more than four of 
the insertion characters C/ , . blank) , if the target field is 
fixed decimal, fixed binary, float decimal or float binary 
conversion. 
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Table OM. 
r 



Phase OM In-line Data Conversions 



_ T . T - 

|Main Processing | 
I Routine 



Statement or Operation Type 



Subroutines Used 



j Scans text for CNVC macros |TEXTSC 

± .- .+_- 

[Passes control to code generation | CNVCDE 
I routines | 

L -X 



(None 



| PACK f UNPACK , EDIT , EDMK 

I 
_x. . - 



Table OM1. Phase OM Routine/Subroutine Directory 

r ■ t • ■ * ' — - 

I Routine/Subroutine | 

H _ x 

| CNVCDE 
tEDIT 



Function 



| EDMK 



[PACK (ON) 



| PTNGEN 



_ -I 



[Passes control to the in-line code generation routines, 

[Generates conversion code, based on the ED instruction, for FIXED 
DEC to PICTURE conversion which includes punctuation and/or zero 

| suppression. 

[Generates conversion code f based on the EDMK instruction, for FIXED 
; DEC to PICTURE conversion which includes a drifting sign, 

[Generates conversion code, based on the PACK instruction, for PIC- 
|TURE to FIXED DEC conversion when the picture contains only 9 f s and 
[V, and has only external sign or edit characters. 

| Generates the editing constant or mask used by the ED or EDMK in- 
line instructions. 



[TEXTSC [Scans text for CNVC macros. 

[UNPACK (ON) [Generates conversion code, based on the UNPK instruction, for FIXED 

DEC to PICTURE containing only 9's and V, and with only external 
| sign or €?dit characters. 

x . — .. . .. . . . . . J 



Table OP. Phase OP Further In-line Conversions 

r . . . — T _ 



h 



Statement or Operation Type 



[Main Processing | 
| Routine j 



Subroutines Used 



[Initialize and perform test scan to [TEXTSC 
[search for convert macros ( 

j... . ._ + _ 

(Examine convert macro and select [CNVCDE 
(routine to generate in-line code | 

L . . .. X — . 



j CNVCDE 

I 
-+- 



1 BNTOBT, BTTOBN, FLTOBN 



I 
-X- 



Table OP1. Phase OP Routine/ Subroutine Directory 



[ Routine/ Subroutine) 



Function 



H 



| BNTOBT 

I 

| BTTOBN 

I 

I FLTOBN 



j Generate in-line code for conversion from fixed binary to bit string 

I 

[Generate in-line code for conversion from bit string to fixed binary 

I 

[Generate in-line code for conversion from float binary to fixed 

j binary 

_x .. . . . . 
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Table OS. Phase OS Constant Conversions 

r . . T _ 



Statement or Operation Type 
k 

Scans constants chain for double 
word constants 



j 

Scans constants chain for single 
word constants 



| Main Processing 
| Routine 

4 

I SCAN1 



Subroutines Used 
POOLSC, SCN010, STPTST 



I SCAN2 



POOLSC, SCN010 f STPTST 



h 



Scans constants chain for unaligned) SCAN3 
constants | 
+ 

Scans through constants chain for | SCAN 4 
all constants used to initialize ( 
STATIC storage | 



CONVRT, IADENT, SCN010 , STPTST 



-+- 



CONVRT, STPTST 



~ I 



H 



Sets up parameter and branches to |CONVRT 
the correct conversion routine | 



ARARD, ARBTD, ARCHD, CHARD, ERROUT f 
IACONV r IASTRN, IHEVFA, IHEVFB, 
IHEVFC, IHEVFD, IHEVFE, IHEVKF, 
IHEVKG, IHEVPA, IHEVPB, IHE VPC , 
IHEVPD, IHEVPE, IHEVPF, IHEVPG, 
IHEVPH, UPAA f UPAB, UPBA f UPBB f 
VSAA f VSCA, VSDA, VSEA, ZEROPT 



Table OS1- Phase OS Routine/Subroutine Directory (Part 1 of 2) 

Function 



r ■ t- 

| Routine/Subroutine | 



h 



ARARD 

ARBTD 

ARCHD 

CHARD 

CONVRT 

ERROUT 

IACONV 

IADENT 

IASTRN 
IHEVFA (OT) 

IHEVFB (OT) 
IHEVFC (OT) 
IHEVFD COT) 

IHEVFE (OT) 

IHEVKF (OU) 



Handles the linking of routines required for any arithmetic to ari- 
thmetic conversions (corresponding Library module IHEWDMA) . 

As above for arithmetic to bit conversion (corresponding Library 
routines IHEWDNB) . 

Arithmetic to character (IHEWDNC) . 

Character to arithmetic (IHEWDCN) . 

Sets up parameters and branches to correct conversion routine. 

Handles the output of error messages for the conversion routines. 

Handles conversion to arithmetic type. 

Makes dictionary entry in the constant pool, generating a new con- 
stant pool block if necessary. 

Handles conversion to string type. 

Converts radix long floating-point binary to packed decimal 
intermediate . 

Converts long precision floating-point number to fixed binary. 

Converts long floating-point number to floating-point variable. 

Converts fixed point binary integer with scale factor to long preci- 
sion floating-point intermediate. 

Converts floating-point number of specified precision 
floating-point. 

Converts packed decimal intermediate to decimal fixed or floating- 
point numeric field with specified precision. 
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Table 0S1. Phase OS Routine/Subroutine Directory (Part 2 of 2) 

Function 



r T~ 

| Routine/Subroutine | 



h 



IHEVKG (OU) 

IHEVPA (OT) 

IHEVPB COU) 

IHEVPC (OU) 

IHEVPD COT) 

IHEVPE (OT) 
IHEVPF (OT) 

IHEVPG (OT) 

IHEVPH (OT) 

LDCONP 
POOLS C 

SCANl 
SCAN 2 
SCAN 3 
SCAN** 

SCN010 

STPTST 

UPAA (UPAB) (OT) 

UPBA (UPBB) (OT) 

VSAA (OT) 

VSCA (OT) 

VSDA (OT) 

VSEA (OT) 

ZEROPT 



Converts packed decimal intermediate to a sterling numeric field, 
with specified precision. 

Converts packed decimal intermediate to long float. 

Converts packed decimal intermediate to an F format item. 

Converts packed decimal intermediate to an E format item. 

Converts packed decimal intermediate to a decimal integer with spe- 
cified precision and scale factor. 

Converts an F or E format item to packed decimal intermediate. 

Converts a decimal integer with specified precision and scale factor 
to packed decimal intermediate. 

Converts binary fixed or floating-point constant to long precision 
floating-point. 

Converts bit string constant with up to 31 significant bits, to 
floating-point with long precision. 

Points to head of constant chain. 

Given a converted constant in scratch storage, scans the existing 
pool for an identical entry. If such an entry is found, the pool 
offset and dictionary reference of the entry is moved into the dic- 
tionary entry for the constant. 

Scans constants chain for double word constants. 

Scans constants chain for single word constants. 

Scans constants chain for unaligned constants. 

Scans constants chain for constants used to initialize static 
storage. 

Controls the calling of the conversion routine CONVRT and pool scan 
routine POOLSC and, if required, IADENT. Also handles the case of a 
constant given in internal form. 

Checks for the end of the constant chain. 

Produces zero real (imaginary) part for CAD (corresponding Library 
module IHEWUPA) . 

Produces zero real (imaginary) part for numeric field (IHEWUPB) . 

Convert from bit string to bit string (IHEWVSA). 

Convert from character string to character string (IHEWSC). 

Convert from character string to bit string (IHEWVSD). 

Convert from character string to pictured character string 
(IHEWVSE) . 

Produces a zero real or imaginary part for a constant given in 
internal form. 
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STORAGE ALLOCATION PHASE TABLES 



Table PA, Phase PA DSAs in STATIC Storage 

r . 



Statement or Operation Type 



. T T 

(Main Processing 
I Routine 

(Scans Entry Type 1 chain for blocks | PADS A 

| eligible for STATIC DSAs | 

f + 

j Makes a dictionary entry for each | DICENT 

(STATIC DSA | 

h 



Subroutines Used 
DSASIZ f DVSIZE 



None 



[Sorts STATIC chain (called from PD) ) SCSORT 
^ „ + . 



None 



| Scans STATIC chain for INTERNAL 
(arrays; calculates number of ele- 
(ments for those arrays needing 
(initialization. Allocates storage 
(for arrays and f if necessary, for 
(secondary dope vectors 



| ARRSCN 

! 
I 
1 

I 
I 



None 



Table PA1. Phase PA Routine/ Subroutine Directory 



r . T « 

| Routine/Subroutine | 
H + . 



Function 



I ARRSCN 



| DICENT 

I 
(DSASIZ 

1 

(DVSIZE 

I 
I 
(PADSA 

I 

| SCSORT 



| Scans STATIC chain for INTERNAL arrays; allocates storage for arrays j 
(and secondary dope vectors (called from PH) . 

| Makes a dictionary entry for each STATIC DSA. 

(Calculates size of DSA excluding Register Allocator Workspace. 

[Scans AUTOMATIC chain for variables requiring dope vectors, and cal- j 
jculates size of dope vectors. 

j Determines eligibility of a block for a STATIC DSA. 

I Sorts STATIC chain (called from PD). 
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Table PD. Phase PD Storage Allocation Static 1 

r ■ ~t- 



H 



Statement or Operation Type 



Main Processing) 
Routine j 



Subroutines Used 



[Reverses second file dictionary 
(pointers 



PD 



h 



| NXBLCK 
1 



| Sorts STATIC chain 
h 



SCSORT Cin PA) JNone 



j Allocates storage for simple, non- 
| structured, non-external items 



STATIC 



I SDSA1 



[Allocates dope vectors for aLl non- I DVALOC 

[external items 

, . + 

[Allocates 4-byte addressing slots; | TVALOC 

| calculates control section size for 

[all external items 

j. .„ 

[Allocates storage for constants. [CONALC 

L -_J. . 



(None 



I STRCDV 



~+ 

[None 
-JL 



Table PD1. Phase PD Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 
,. 



Function 



[CONALC 

I 

| DVALOC 

I 
[NXBLCK 

I 

[PD 

1 

| SDSA1 

I 

| SCS0RT 

I 

| STATIC 

i 

[ STRCDV 

1 

[TVALOC 



Allocates storage for constants. 

Allocates dope vectors for all non-external items. 

Obtains next text block. 

Scans text file and reverses second file pointers. 

Allocates a 4-byte address slot for each STATIC DSA. 

Sorts STATIC chain. 

Allocates storage for simple, non- structured, non- external items. 

Allocates relative offsets of structure member dope vectors. 

Allocates 4-byte addressing slots; calculates control section size 
for all external items. 
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Table PH. Phase PH Storage Allocation Static 2 

r .. . T 

Main Processing 
Statement or Operation Type 



h 



Routine 



Subroutines Used 



Scans AUTOMATIC chain; allocates 
dope vector 



PBSCAN 



AUTO4, SKDV1, SKENT3 , STRSCN, 
TEMPDV 



Scans CONTROLLED chain 



CONSCN 



h 



AUTO4, SKDV1, STRSCN 



Allocates storage for skeleton argument 
lists appearing in STATIC chain 



SKARGL 



None 



h 



Scans STATIC chain for INTERNAL arrays; 
calculates number of elements for those 
arrays needing initializing. Allocates 
storage for arrays and, if necessary, for 
secondary dope vectors 



ARRSCN (in PA> 



None 



Scans STATIC chain for INTERNAL struc- 
tures. Calculates number of elements in 
structured arrays needing initializing. 
Calculates size of storage for all struc- 
tures and bumps location counter. 



STRALO 



None 



Table PHI. Phase PH Routine/ Subroutine Directory 

f — . T 

| Routine/ Subroutine | Function 

h 



|ARRSCN (in PA) 

(AUTEND 
| AUT04 

| CONSCN 
|CSCN2 
| ENDS 13 
| PBSCAN 
|PBS1 
| SKARGL 

1SKARG1 
(SKDV1 

| SKENT3 

(STRALO 

| STRSCN 

i TEMPDV 



j Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
|and secondary dope vectors. 

| Tests for end of AUTOMATIC chain. 

| Calculates size of dope vectors for dynamic temporaries and CON- 
TROLLED variables. 

(Scans CONTROLLED chain. 

(Tests for end of STATIC chain. 

(Stores STATIC location counter and releases control. 

| Scans AUTOMATIC chain; allocates dope vectors. 

(Gets next item in chain. 

(Allocates storage for skeleton argument lists appearing in STATIC 
| chain. 

(Allocates storage required. 

| Creates skeleton dope vector dictionary entries for non-structured 
| variables in AUTOMATIC and CONTROLLED storage. 

(Constructs skeleton dope vector dictionary entries for function 
(values. 

| Calculates number of elements in structure arrays to be initialized; 
[calculates size of storage for all structures. 

| Creates skeleton dope vector dictionary entries for structures in 
[AUTOMATIC and CONTROLLED chains. 

| Creates skeleton dope vector dictionary entry for temporary 
| workspace. 
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Table PL, Phase PL Storage Allocation Symbol Table and DEDs 

r ; "" — 



_ T . T< 

[Main Processing 
I Routine 



Statement or Operation Type 



Subroutines Used 



Allocates STATIC storage for all | IEMPL 
symbol tables and DEDS | 



BCSCAN, CCSCAN, CNSCAN, SCSCAN 



h 



Scans STATIC chain for symboL and | SCSCAN 
DED variables 1 

j. -. ._+_„ - 

Scans CONTROLLED chain for symbol |CCSCAN 
and DED variables | 



DEDALl, STRSCN, SYMTAB 



DEDALl, STRSCN, SYMTAB 



H 



+- 



h 



Scans PROCEDURE block chain of |BCSCAN 
ENTRY type 1 entries | 



ACS CAN, DEDAL1 



h 



Scans AUTOMATIC chain for symbol |ACSCAN 
and DED variables I 



DEDALl, STRSCN, SYMTAB 



Scans chain of members of particu- | STRSCN 
lar structure for symbol and DED I 
variables | 

j . + _„„ 

Allocates storage for symbol tables (SYMTAB 



DEDALl, SYMTAB 



-H 



DEDAL2 
None 



Allocates storage for DEDS 



(DEDAL (two 
| entry points: 
|DEDALl f DEDAL2) 
_J._ . . 



Table PL1. Phase PL Routine/Subroutine Directory 



j Routine/Subroutine j 



Function 



| ACS CAN 

i 
|BCSCAN 

i 

j CCS CAN 

I 
(CNSCAN 

I 

(DEDAL1 (PM> 

I 
(IEMPL 

I 
(SCSCAN 

1 

(STRSCN 

i 
I 
(SYMTAB CPM> 

L 



Scans AUTOMATIC chain for symbol and DED variables. 

Scans procedure block chain of ENTRY type 1 entries. 

Scans controlled chain for symbol and DED variables. 

Scans constants chain for DED variables. 

Allocates storage for DEDs. 

Allocates STATIC storage for syniDol tables and DEDs. 

Scans STATIC chain for symbol and DED variables. 

Scans chain of members of particular structure for symbol and DED 
variables. 

Allocates storage for symbol tables. 
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Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Chain 



k— 

Scans BEGIN- ENTRY for ENTRY type 1 

entries 
h 

Scans AUTOMATIC chain from each 
ENTRY type 1 entry 
| . 

Adds ON conditions to first AUTO- 
MATIC zone 



Statement or Operation Type 



T T 

Main Processing 
Routine 



Subroutines Used 



RAO 



SETCH, SCRUB1, SORCH 



-H 



SETCH 



EXDT, SRCH2 



SC24 



None 



| 

Adds temporaries (type 2) and inde- 
pendent items to first zone 



SC31 



None 



h 



Adds dependent items to subsequent 
zones 



+- 



SC44 



None 



-- 1 

-H 

-H 
-H 



Determines list of dependencies 
from INITIAL attribute 



SC39 



SCNCHN, SRCH2 



H- 



Determines list of dependencies 
from DEFINED attribute 



SC40 



SCNCHN, SRCH2 



h 



Determines list of dependencies for 
array bound expressions 
, 

Determines list of dependencies for 
string length expressions 



SC35 



EXDT f SCNCHN 



SC50 



SCNCHN, SRCH2 



h 



Removes independent item dictionary 
references upon which items in the 
AUTOMATIC chain depend. 






SCRUB1 



+ 

None 
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Table PP1. Phase PP Routine/Subroutine Directory 



r t- 

| Routine/Subroutine | 
j + . 



Function 



EXDT [Scans dimensions tables for second file statements with adjustable 

| bounds . 

RAO (Scans BEGIN- ENTRY for entry type 1 entries, 

RA1 (Tests for end of ENTRY type 1 chain- 

RA4 (Creates an AUTOMATIC chain delimiter, 

RA7 | Tests for end of chain. 

SCNCHN | Scans current AUTOMATIC chain; determines whether reference belongs 

jto it. 

SCRUBI (Removes independent item dictionary references from the stack of 

(dictionary references upon which items in the AUTOMATIC chain 
j depend . 

SC24 (Adds ON conditions to first automatic zone. 

SC31 (Adds temporaries (type 2) and independent items to first zone. 

SC35 (Determines list of dependencies for array bound expressions. 

SC39 (Determines list of dependencies from INITIAL attribute. 

SC40 (Determines list of dependencies from DEFINED attribute. 

SC44 (Adds dep€».ndent items to subsequent zones. 

SC50 j Determiners list of dependencies for string length expressions. 

SETCHN (Scans AUTOMATIC chain from each ENTRY type 1 entry. 

SORCH (Sorts chain in order of dependencies! creates zone delimiter dic- 

tionary entries. 

SRCH2 | Scans second file statements for dictionary references of labels , 

(data items, and structures, which may belong to the current AUTOMAT- 
I IC chains* . 
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Table PT. Phase PT Storage Allocation AUTOMATIC Storage 



Scans stacked CONTROLLED chain for 
largest dope vector 

j 

Initializes ENTRY type 1 chain scan 
and DSA 
I— 



Statement or Operation Type 



T T 

Main Processing 
Routine 



Subroutines Used 



MYNAM 



DVSIZE 



DSALOC 



MKSTAT 



Allocates slots for ON conditions 



DSA<4 



— f 



MKSTAT 



h 



Allocates storage for workspace and 
for DSA addressing vector 



DSA10 



None 



h 



Scans AUTOMATIC chain and allocates 
storage for dope vectors 



DSA16 



COPY, DVSIZE, INITDV, MKSTAT, 
STDVIN 



Allocates BUY workspace 



DSA17 



— + 



Allocates storage for parameters 



DSA19 



None 

+ 

None 



Allocates storage for double preci- 
sion variables 



DSA25 



None 



Allocates storage for single preci- 
sion variables 



DSA29 



f 



None 



Allocates storage for character 
strings and half word binary 



DSA38 



None 



Allocates storage for bit strings 



DSA46 



None 



h 



Allocates storage for arrays and 
secondary dope vectors 



DSA54 



COPY, INITDV, MKSTAT, SDVCDE 



Allocates storage for structures 



DSA68 



COPY, MKSTAT 



Gets VDA and initializes dope vec- 
tors for adjustable regions of 
AUTOMATIC chain 



DSA72 



COPY, INITDV, MKSTAT, STDVIN 



-+ 

(None 
-X 



(Allocates storage for DEFINED items (DSA98 

L X 
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Table PT1. Phase PT Routine/Subroutine Directory 



r T _ 

| Routine/Subroutine | 



Function 



CONT1 
COPY 
DSALOC 
DSA 4 
DSA5 
DSA10 
DSA16 
DSA17 
DSA19 CPU) 
DSA25 CPU) 
DSA29 CPU) 
DSA38 CPU) 
DSA46 CPU) 
DSA54 
DSA68 
DSA72 
DSA7H 
DSA98 
DSA161 
DSA162 
DSA952 
DVSIZE CPU) 
INITDV 
MKSTAT 
MYNAM 

SDVCDE CPU) 
j STDVIN 



Scans controlled chain for size of longest dope vector. 

Compiles code to copy skeleton dope vector into real dope vector. 

Initializes ENTRY type 1 chain scan and DSA. 

Allocates slots for ON conditions. 

Allocates standard save area and flag bytes. 

Allocates storage and workspace for DSA addressing vector. 

Scans AUTOMATIC chain and allocates dope vectors. 

Allocates BUY workspace. 

Allocates storage for parameters. 

Allocates storage for double precision variables. 

Allocates storage for single precision variables. 

Allocates storage for character strings and half word binary. 

Allocates storage for bit strings. 

Allocates storage for arrays and secondary dope vectors. 

Allocates storage for structures. 

Initialises dope vectors for adjustable regions of AUTOMATIC chain. 

Stores pointer to skeleton second file statement. 

Allocates storage for DEFINED items. 

Allocates storage required for dope vectors. 

Compiles code to initialize dope vectors. 

Gets VDA for this region of AUTOMATIC chain if required. 

Determines size of dope vectors. 

Compiles code to initialize address slot in dope vector. 

Makes a second file statement. 

Scans CONTROLLED chains. 

Compiles code for secondary dope vectors. 

Initializes structure member dope vectors. 
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Table QF- Phase QF Storage Allocation Prologues 

| T T 

Main Processing 
Statement or Operation Type 
f 

Scans text for statement labels, 
PROCEDURE statements, BEGIN state- 
ments, BEGIN END statements, and 
en d-of -program marker 



Routine 
QF0000 



— + 



Subroutines Used 



-H 



QBEGEP, QBPROL, QEOP, QMOVE, QPROL, 
QSL 



Processes statement label pseudo- 
code items 

H _ 

Frees text storage at end of phase; 
releases control 



QSL 



QMOVE 



QEOP 



QMOVE 



h 



Creates stereotyped prologue for a 
BEGIN block requiring a dynamic 
storage area 



QBPROL 



QADJAL, QFSKIP, QF0201, QMOVE 



Creates stereotyped or special 
prologues for PROCEDURE statements, 
depending on conditions- Processes 
statement label pseudo-code items 



QPPROL 



QADJAL, QFSKIP, QF0201, QMOVE, 
QONPRL 



h 



Creates a compiler label marking 
the return from a BEGIN block 



QBEGEP 



QADJAL, QF0201, QMOVE 



Creates a prologue for ON block 



QONPRL 
QADJAL 



QADJAL, QFSKIP, QF0201 



Assembles code to initialize DSA 
dope vector data areas, and to 
allocate variable data areas 



QMOVE1 



h 



h 



Skips second file statements fol- 
lowing a block heading statement 



QFSKIP 



None 



h 



Obtains new buffer and chains it to 
the previous one 



QF0 201 



None 



h 



Moves input text being skipped from 
input buffer to output buffer 



QMOVE 
QM0VE1 



None 



Moves a second file statement, 
pointed at by PARI, to the prologue 
being generated 



QMOVE 
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Table QF1. Phase QF Routine/Subroutine Directory 



r t- 

| Routine/ Subroutine | 



Function 



QADJAL 

QBEGEP 
QBPROL (QG) 

QEOP 
QFSKIP (QG) 

QFOOOO 

QF0201 (QG) 

QF0360 

QF0370 

QF0570 

QF0625 

QF0860 

QF1172 

QF1194 

QF1215 

QF1511 

QMOVE 

QMOVE1 

QONPRL (QH) 

QPPROL (QG) 

QSL 



Assembles code to initialize DSA dope vector, variable data areas, 
and to allocate variable data areas. 

Creates a compiler label marking the return from a BEGIN block. 

Creates stereotyped prologue for a BEGIN block requiring a dynamic 
storage area. 

Frees text storage at end of phase; releases control. 

Skips second file statements following a PROCEDURE or BEGIN 
statement. 

Scans text for statement labels, PROCEDURE statements, BEGIN state- 
ments, BEGIN END statements, and end- of- program marker. 

Moves code to output buffer; obtains new buffer if required. 

Tests for external procedure. 

Generates prologue for GET DSA. 

Generates code to copy argument and target addresses. 

Tests for entry points. 

Tests end of chain. 

Tests end of first region. 

Extracts mapping code from second file. 

Tests for storage required. 

Removes VDA accumulator assignment code from mapping code. 

Moves text from input buffer to output buffer. 

Moves second file statement to prologue being generated. 

Creates prologue for ON block. 

Creates stereotyped or special prologues for PROCEDURE statements, 
depending on conditions. 

Processes statement label pseudo-code items. 
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Table QJ. Phase QJ Storage Allocation Dynamic Storage 

r . . T T __ 

Main Processing) 
Statement or Operation Type 



h 



Routine 



Subroutines Used 



General scan of text for ALLOCATE, 
BUY and FREE statements 



GS1 



ALLOC, BUY, BUYP, FREE, TRF1. 



Allocates items not requiring dope 
vector 



AL20 



AL15, TRF2 



h 



Generates code to move skeleton 
dope vector into workspace for con- 
trolled variables 



MOVEDV 



TRF2 



h 



Looks ahead to reverse pointers for 
ALLOCATE statements 



REVPT 



GS1, TRF1 



h 



h 



Allocates storage for controlled 
string 



AL28 



GS1, LIBC1, LIBC2, SCANSF, TRF2 



Allocate storage for controlled 
array 



AL27 



h 



ABOUND, LIBC1, MOVEDV, PREVAL, 
SCANSF, TRF2 



Allocates storage for controlled 
structure 



AL29 



h 



BNDEXP, LIBC1, MOVEDV, NXTREF, 
NXTVAR, PREVAL, SCANSF, TRF2 



h 



Loads Library call parameter regis- 
ter to free allocated storage 



FREE 



TRF2, TRF3 



Moves skeleton dope vector for 
bought temporary 



BUYP 



TRF2 



Buys storage for temporary array 



Buys storage for temporary 
structure 
| 

Places initial value code line for 
controlled variables 



BY14 
BY13 



SCANSF, TRF2 



LIBC4, NXTREF, NXTVAR, SCANSF, TRF2 



AL15 



NXTRF, SCANSF 



Skips scan register over initiali- 
zation statements 



SKIPTX 



GS1 



h 



Generates code to set a pointer to 
the previous allocation. 
k 

Searches dimension tables for 
adjustable bound expressions 
| „. 

Generates code for temporary 
variables requiring only a dope 
vector 



PREVAL 



TRF2 



ABOUND 



SCANSF 



STMP 



LIBC3, TRF2 
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Table QJ1. Phase QJ Routine/ Subroutine Directory 



j Routi ne/ Subr out i ne j 



Function 



ABOUND CQK) 
ALLOC CQK) 
AL15 

AL20 CQK) 
AL27 CQK) 
AL29 CQK) 
BNDEXP 

BUY 

BUYP 

BY13 

BY14 

BY15 

FREE CQK) 

GS1 

LIBC 1/LIBC 2 /LIBC 4 

MOVEDV CQK) 

NXTREF CQK) 
NXTVAR CQK) 
PREVAL CQK) 
REVPT 
SCANSF 
SKIPTX 
STMP CQK) 

TRF1 
TRF2 
TRF3 



Searches dimension tables for adjustable bound expressions. 

Ascertains the type of allocate statement. 

Places initial value code line for controlled variables. 

Allocates items not requiring dope vector. 

Allocates storage for controlled arrays. 

Allocates storage for controlled structures. 

Generates or extracts code to set the adjustable bounds of 
structures. 

Ascertains the type of buy. 

Moves skeleton dope vector for bought temporary. 

Buys storage for temporary structure. 

Buys storage for temporary array. 

Buys storage for temporary string. 

Loads Library call parameter register to free allocated storage. 

General scan of text for ALLOCATE, BUY, and FREE statements. 

Places trie library calling sequence for controlled storage in 
sequence in the text. 

Generates code to move skeleton dope vector into workspace for con- 
trolled variables. 

Obtains the next structure base element reference. 

Obtains the next varying array base element reference. 

Generates code to set a pointer to the previous allocation. 

Looks ahead to reverse pointers for ALLOCATE statements. 

Places second file statement in the line in the text. 

Skips scan register over initialization statements. 

Generates code to buy storage for temporary variables which only 
require a dope vector. 

Transfers input text to output. 

Adds text skeletons to the output text. 

Adds the Library Calling sequence to the output text. 
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Table QU. Phase QU Alignment Processor 

r t — - 



|Main Processing! 
Statement or Operation Type | Routine | Subroutines Used 
+ + 

Tests pseudo-code instructions for |ALIGNQ | ALREGQ, MVCMAK, REGENT 

misaligned operands and deduces thef j 

correct alignment | | 

+ x 

Generates a move character (MVC> (MVCMAK | ABEOT,NEXREG,OUTEST,PSMOVE, REMOVE, 

instruction for a misaligned | |SNEXT, TRANS 

operand | | 

__ _ + + 

Skips a pseudo-code item | T3 | TNEXT 
+ + „ . 

Processes the load address (LA) | TLA |TRR 

pseudo-code instruction | j 

+ x 

Processes the library calling | TLTB lABEOT f T3 

sequence in the pseudo-code ( j 

+ __ + __ 

Processes the L pseudo-code |TLL | ALIGNQ, ALREGQ, OU TEST, PSMOVE, REMOVE, 

instruction ( | S NEXT, TRANS, TRR 

„ + _. „x „ 

Processes pseudo-code instructions, 1 THT |ALIGNQ,TRRS 

other than L and LA, that may have | j 

misaligned operands | j 

+ _ + 

Examines a pseudo-code item and (TRANS |T3, TABS, TDROP,TEOP,THT, TLA, TLIB, 

passes control to the appropriate | |TLL,TRR,TSN 

processing routine | | 



L . 



JL_ 



X . J 



Table QUI. Phase QU Routine/ Subroutine Directory 



r , T - 

(Routine/Subroutine) 
h 



Function 



|ABEOT 
| ALREGQ 
| NEXREG 
| OUT EST 
[ PSMOVE 
| REGENT 

| REMOVE 
j SNEXT 
[TABS 
| TDROP 
|TEOB 

|TEOP 

| TRR 
ITSN 



(Outputs termination error message. 

(Tests whether or not the register is in the register table. 

| Gets a symbolic register. 

j Gets a new output text block if required, 

| Fills current output text block and gets a new one. 

(Makes an entry in the register table for a register that has been 
loaded with the address of a misaligned operand. 

[copies text into the output text block. 

(Accesses next pseudo-code item in the source text. 

j Scans absolute code and copies it onto the output text if necessary. 

(Removes dropped registers from the register table. 

| At the end of a source text block, moves out the scanned text and 
j gets the next source text block. 

(At the end of the program, outputs the remaining text, and releases 

I control. 

| Deletes an assigned register from the register table. 

| Updates the statement number slot in the communications region. 
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Table QX. Phase QX Print Aggregate Length Table 



_ T . T . 

| Main Processing | 
| Routine j 



Statement or Operation Type 



Subroutines Used 



(Scan storage chains in dictionary (SCANC 
| for aggregate entries | 

h 



| ANAGG , PRNTAB 
1 



(Analyze aggregate dictionary 
| entries and print table entry 



I ANAGG 
I 

1 

-X . — 



| ANCOB , EXTENT , FIN ALA f FIRSTA , FORMAL, 
| GETVO f GETSB, MAKEN, PRHED, SORT EN, 
I VOPLUS 

-J. - . 



Table QX1. Phase QX Routine /Subroutine Directory 



r T" 

| Routi ne/ Subr out i ne | 



Function 



ANAGG | Analyzes dictionary entries for a major structure or non- structured 

j array. 

ANCOB j Finds original major structure dictionary entry for a COBOL major 

| structure, 

EXTENT (Calculates length in bytes of a data variable, label, task, event, 

j or area. 

FINALA (calculates address of final basic element of a major structure. 

FIRSTA [Calculates address of first basic element of a major structure. 

FORMAL |Calculat€iS length of a non- structured array. 

GETVO (Gets virtual origin of a dimensioned variable. 

GETSB j Sets pointer to BCD in a dictionary entry. 

MAKEN j Makes an entry in text block for each aggregate. 

PRHED (Prints main heading and sub-~heading of table. 

PRNTAB [Prints Aggregate Length Table. 

SCANC (Scans STATIC, AUTOMATIC and CONTROLLED chains in dictionary for 

(aggregate entries. 

SORTEN j Sorts text block entry for aggregate so that the entries are chained 

(in collating sequence order of the aggregate identifiers. 

VOPLUS (Calculates address of first or last element of major structure. 
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REGISTER ALLOCATION PHASE TABLES 



Table RA. Phase RA Register Allocation Addressability Analysis 



T . T . 

Main Processing 
Routine 



h 



Statement or Operation Type 



Subroutines Used 



Controls scan of source 



LAA 



ACTl f ACT2, ACTS, ACT8, ACT9, 
ACTIO, ADCBUF, GETSBF 



Processes RX f RS f or SI 
i ns t r uct i ons 



ACT3 



ADTEST, DRTEST 



Processes SS instructions 



ACT4 



,. 

Compiles code for start of PL/I 
Statement: 1. with label, 2. 
without label, 3, compiler label 



ACT15, ACT14, 
ACT16 



ADTEST, DRTEST 
+ 

ADCBUF, GENFLP, UPSN 



h 



Processes PROCEDURE and BEGIN 
blocks 



ACT6 



ADCBUF 



Processes END statements on PROCE- 
DURE or BEGIN blocks 



ACT7 



ADCBUF 



Adds text to output string 



ADCBUF 



GETCBF 



Adds text to insertion file 



ADIBUF 



GETIBF 



Obtains new source buffer 
J— 



GETSBF 



None 



Obtains next output buffer 
^ 

Obtains next insertion file buffer 

Examines dictionary reference in 
source 



GETCBF 



None 



GETIBF 
DRTEST 






None 

ADINST, DECOMP, SETBLK 



| 

Produces recovery code when literal 
offset greater than 4095 is met 



ADTEST 



ADCBUF 



H _. 

Creates coded addressing 
instructions 



ADINST 



ADCBUF, ADIBUF 
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Table RA1. Phase RA Routine/ Subroutine Directory 

( r .._ . . — . 

| Routine/ Subroutine | Function 

h 



ACT1 

ACT2 

ACT 3 

ACT4 

ACT5 

ACT6 

ACT7 

ACT 8 

ACT9 

ACTIO 

ACT12 

ACT13 

ACT14 

ACT15 

ACT16 

ADD/ADD2 

ADCBUF 

ADIBUF 

ADINST 

ADTEST 

ATD 

DECOMP 

DRTEST (RB) 

DTY 

GENFLP 

GETCBF 

GETIBF 

GETSBF 

LAA 

L125 

SETBLK 

UPSN 



Copies non-special three-byte item to output. 

Copies non-special five- byte item to output. 

Processes RX f RS f or SI instructions. 

Processes SS instructions. 

End of block routine. 

Processes PROCEDURE and BEGIN blocks. 

Processes END statements on PROCEDURE or BEGIN blocks. 

End of source text routine. 

Action of start of common block of prologue. 

Action at end of prologue. 

Copies absolute code to output stream. 

Creates ADI instruction at prologue insertion point. 

Compiles code for start of PL/I statement with label. 

Compiles code for start of PL/I statement without label. 

Compiles code for start of PL/I statement compiler label. 

Generates store of calculated address. 

Adds text to output string. 

Adds text to insertion file. 

Creates coded addressing instructions. 

Produces recovery code when literal offset greater than 4095 is met. 

Tests whether previous offset is out of bounds. 

Decodes dictionary reference. 

Examines dictionary reference in source. 

Scans step table and generates addressing instructions. 

Generates code to set bits on and off in a prefix ON-slot. 

Obtains next output buffer. 

Obtains next insertion file buffer. 

Obtains next source buffer. 

Scans input text. 

Moves addressing instructions to IN-LINE. 

Finds block number of referenced item. 

Generates code to keep the statement number slot in the DSA up to 
date. 
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Table RD. Phase RD Use Determination of all EQUs 

r . . T . T , 

Main Processing 
Statement or Operation Type 



1_- 



Routine 



Subroutines Used 



Initializes text blocks for tables 



LINIT 



None 



h 



Scans text 



LBUILD 



(. _ __ 

Processes EQU items 
H _. 



LEQV, LBC, LBAL, LOBR, LEOB, 
LABS, L3BYT, L5BYT, LVARB, 
LSTAT, L2BYT, LEOP 



LEQU 



Processes BC items 



LBC 



FNDIND 
| 

FNDIND 



h 



Processes BAL items 



LBAL 



LOBR, L5BYT 



h- 



h 



Processes any other branch item 



LOBR 



FNDIND 



Skips a 2-byte item 



L2BYT 



K- 



Skips a 3-byte item 



L3BYT 



~+ 



None 
None 



h 



Skips a 5-byte item 



L5BYT 



Skips a variable length item 

j. __. 

Processes a statement number item 

Processes an EOB item 



LVARB 



None 

+ 

None 



LSTAT 
LEOB 






None 

+ 

None 



k _ 

Scans absolute code 

Finds the indicator byte and text 
reference of an EQU value 



LABS 
FNDIND 






None 

+ 

None 



f ___ 

Ends table build and passes control 
to second section 



LEOP 



f 

LSCAN 



h 

1 c 

h 
Flags EQUs in text as optimizable |LFLAG 

L . . X 



Scans tables for optimizable EQUs 



LSCAN 



LFLAG 



None 
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Table RD1. Phase RD Routine/Subroutine Directory 



r t 

| Routine/Subroutine | 
, + 

JFNDIND 

| LABS 

|LBAL 

|LBC 

(LBUILD 

|LEOB 

|LEOP 

|LEQU 

(LFLAG 

| LINIT 

|LOBR 

| LSCAN 

| LSTAT 

|LVARB 

[L2BYT 

| L3BYT 

I L5BYT 



Function 

Finds indicator byte and text reference of EQU value 
Scans absolute code 
Process BAL items 
Processes BC items 
Scans text 
Processes EOB items 

Ends table build and passes control to second section 
Processes EQU items 
Flags EQUs in text as optimizable 
Initializes text blocks for tables 
Processes any other branch item 
Scans tables for optimizable EQUs 
Processes statement number items 
Skips variable length items 
Skips 2 -byte items 
Skips 3-byte items 
Skips 5-byte items 



. JL . . ,, . — . . ._. . . J 
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Table RF. Phase RF Register Allocation Physical Registers 



i- — 

Controls scan of text 



Statement or Operation Type 



| Main Processing 
| Routine 



Subroutines Used 



H 



Z9 



J. _ . 

Processes PROCEDURE or BEGIN 

statement 
j _. 

Processes end of PROCEDURE or BEGIN I LEND 
block | 



ADCBUF, ADIMOV, BR1 , BR3 , BR4, 

GETNXT, LBAL, LBALR, LBCTR, LEOB, 

LEOP f LR1, LR3, LR4, LR6, LR7 f LR9, 
LSHIFT, OBREGS 



H 



LPROC 



None 



-+- 



None 



h 



Processes requests for registers; | OBREGS 
allocates physical registers I 



BRGUSE r LOAD1, STORE1, STORE2 f 
REGUSE 



Compiles code to store symbolic 
registers 



(STORE2 



ADCBUF 



Compiles code to store assigned | STORE1 
registers | 



ADCBUF 



h 

h 
Compiles load register 

i 

Expands coded addressing 
instructions 

|. . 

| Adds to output buffer 

L . 



~\ 



Compiles load of physical registers) LOAD 1 



ADCBUF 



1 LOADRG 

-+— 

| ADIMOV 

1 



ADCBUF 



-H 



ADCBUF 



I ADCBUF 



I None 



Table RF1. Phase RF Routine/Subroutine Directory (Part 1 of 2) 

Function 



r T _ 

| Routine/Subroutine I 



h 



ADCBUF 
ADIMOV 
BRGUSE 
BR1 (RH) 
BR3 (RH) 
BR 4 (RH) 
FRTEST 
GETNXT 
LAD1 (RH) 
LB (RH) 



Adds to output buffer. 

Expands coded addressing instructions - 

Tabulates use of base register in look-ahead. 

Processes RX branch instructions. 

Processes BCT instructions. 

Processes RR branch instructions. 

Scans list of free registers to make even-odd pair. 

Obtains next block. 

Processes AD1 (addressing) instructions. 

Constructs and puts out completed instruction. 
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Table RF1. Phase RF Routine/Subroutine Directory (Part 2 of 2) 

Function 



r t- 

| Routine/Subroutine I 



H- 



LBAL (RH> 
LBALR (RH> 
LBCTR (RH) 
LDROP (RH) 
LEND (RH) 
LEOB (RH) 
LEOP 
LOAD1 
LOADRG 
LPROC (RH) 
LR1 (RH) 

LR3 (RH) 
LRa (RH) 
LR6 (RH) 

LR7 (RH) 
LR9 (RH) 

LSHIFT (RH) 
OB560(RG) 
OB630 (RG) 
OB895 (RG) 
P9INIT (RH) 
OBREGS (RG) 
REGUSE 
STORE1 
STORE2 
Wl» (RH) 
Z9 (RH) 



Processes BAL instructions. 

Processes BALR instructions. 

Processes BCTR instructions. i 

Processes DROP pseudo-instruction. 

Loads end of PROCEDURE or BEGIN block. 

Processes end-of -block marker. 

Processes end-of -program marker* 

Compiles load of physical registers. 

Compiles load register. 

Processes PROCEDURE or BEGIN statement. 

Processes instructions in which first and second operands require 
loading, and the first is altered, e.g., AR. 

Processes floating-point instructions. 

Processes SS instructions. 

Processes instructions where a load of first operand is required, no 
operands are changed, e.g., ST. 

Processes SI instructions. 

Processes instructions in which no load of first operand is needed, 
and it is changed, e.g., LA. 

Processes shift instructions. 

Tests whether all registers are available. 

Generates stores of registers if branch in or out. 

Generat€iS code to load registers. 

Main text scan. 

ProcessciS requests for registers; allocates physical registers. 

Tabulates use of registers in look ahead. 

Compiles^ code to store assigned registers. 

Compiles code to store symbolic registers. 

Extracts ADIs at prologue insertion point. 

Controlling scan of text. 
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FINAL ASSEMBLY PHASE TABLES 



Table TF. Phase TF Final Assembly Pass 1 



- T . T 

| Main Processing | 

| Routine | 
. + + 

[IL0024 (None 
_ + _ ^ 

(IL0019 JFINEQ1, NEXTSL 



| Statement or Operation Type 
|. ._ 

| Scans text 

j 

| Assigns offsets to labels 

h 



Subroutines Used 



| Increments location counter for 
(machine instructions 

h 



IIL0014 



JNone 



(Determines code for instructions 

(which refer to labels 

h 



IIL0020 



| FINEQ1 



"+ 

(IL0010 



| None 
1 



| Initializes location counter at 

[start of procedure 

h 



-+ 

[IL0011 

I 

_i 



i Stores size of procedure and 
[resumes containing procedure 



[None 

I 

-X 



Table TF1. Phase TF Routine/Subroutine Directory 



j Routine/Subroutine j 
I- 



Function 



FINEQ1 
ILOOOO 
IL0003 
IL0010 
IL0011 
IL0014 
IL0015 
IL0017 
IL0019 
IL0020 
IL0022 
IL0024 
NEXTSL 



Locates label number table entries. 

Entry point from compiler control. 

Entry point to scan from initialization routine. 

Initializes location counter at start of procedure. 

Stores size of procedure and resumes containing procedure. 

Increments location counter for machine instructions. 

Processes the start of prologues. 

Releases control. 

Assigns offsets to labels. 

Determines code for instructions which refer to labels. 

Processes end-of -block pseudo-code item. 

Scans text. 

Determines multiple statement label entries in dictionary. 
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Table TJ. Phase TJ Final Assembly Optimization 

r ■ * * — T" 



| Statement or Operation 1?ype 

Y . .. 

(Controls phase 

j. _ 

[Maintains location counter tor 
(machine instructions 



Main Processing 
Routine 



Subroutines Used 



IL0000 



OPTIMA 



IL0014 



None 



v- 

[Assigns offsets to labels 

t 

(Determines code for instructions 
[which refer to labels 



IL0019 



COMRTN, FINEQ1, NEXTSL 



+- 



IL0020 



FINEQ1 



[Initialize location counter at 
| start of procedure 



IL0010 



None 



h 

(Stores size of procedure for 

(machine instructions 



+- 



IL0011 



None 



(Reduces number of MVC instructions 
j. „ . 

| Determines offset from a given dic- 
(tionary reference 

L . .. 



IL0027 



OFFSET, OSMRTN 



OFFSET 



None 



Table TJ1. Phase TJ Routine/ Subroutine Directory 



j Routine/Subroutine j 



Function 



COMRTN 

FINEQ1 

IL0000 

IL0003 

IL0010 

IL0011 

IL0012 

IL0014 

IL0019 

IL0020 

IL0024 

IL0027 

IL1001 

IL1101 

NEXTSL 

OFFSET (TK) 

OPTIMA 

OSMRTN 



Determines whether further optimization is possible • 
Locates label number table entries. 
Controls phase. 

Entry point to scan loop from initialization- 
Initializes location counter at start of procedure. 
Stores size of procedure and resumes containing procedure. 
Processes machine instructions, etc. 

Maintains location counter for machine instructions. 
Assigns offsets to labels. 

Determines code for instructions which refer to labels. 
Gets pseudo-code item length and updates text pointer. 
Elides MVC instructions. 

Evaluates new ADCON needs. Sets location counter to zero. 
Restores content of containing procedure. 
Looks for equivalent statement labels. 
Determines offset from a given dictionary reference. 
Scans text. 
Scans ahead for literal offsets. 
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Table TO. Phase TO Final Assembly External Symbol Dictionary 



Statement or Operation Type 



T T 

Main Processing 
Routine 



h 

(Constructs first six standard ESD 

j entries 



Subroutines Used 



LG401 



MOVE, NAME, ERROR 



| Constructs entries for external 

(procedure labels 

| 

(Constructs PR type entries for each 
(block and procedure 

(Constructs entries for external 
(variables and external entry names 



LG001 



MOVE, ERROR 






LG030 



LG050 



MOVE, NAME 



+ 

MOVE, ERROR 



(Constructs entries for controlled 
(variables and task names 



LG090 



MOVE, NAME, ERROR 



(Constructs entries for Library con- 
version modules 

L , 



IL0200 



IHEINC 



Table TOl. Phase TO Routine/ Subroutine Directory 



j Routine/Subroutine j 
j 



Function 



ERROR 

LG001 

LG030 

LG050 

LG055 

LG080 

LG085 

LG090 

LG093 

LG401 

MOVE 

NAME 

IHEINC (TQ> 



Truncates over-length external identifier, generates error message. 

Constructs entries for external procedure labels. 

Constructs PR type entries for each block and procedure. 

Constructs entries for external variables and external entry names. 

Processes ON- conditions and external variables. 

Processes external entry names. 

Processes FILE constants . 

Constructs entries for controlled variables and task names. 

Inserts name in ESD entry for CONTROLLED. 

Constructs first six standard ESD entries. 

Moves ESD entries to card buffers, and puts out buffer when full. 

Generates names for pseudo-registers. 

Constructs a string of Library module names. 
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Table TT. Phase TT Final Assembly Pass 2 

r ■ T" 



Scans text 

Generates text for RR instructions 
j._„. „ „_ 

Generates Text for RX non-branch 
instructions LM f STM f and SI Types 



Statement or Operation Type 



Main Processing 
Routine 



Subroutines Used 



IL0002 



None 



IL0012 
IL0013 



GENTXT 



EOBRTN, GENTXT, OFFSET 



h 



Generates text for shift 
instructions 



IL0027 



GENTXT 



h 



Generates Text for SS instructions 



IL0014 
IL0019 



EOBRTN f GENTXT, OFFSET 



Sets up trace information and num- 
bers compiler labels 

| __ 

Generates text for branch and load 
address instructions 

Initializes location counter at 
start of procedure 



GENTXT 



IL0020 



IL0010 



FINEQ1, GENTXT, OFFSET 
PUNCHT 



Resumes containing procedure at end 
of procedure 



IL0011 



PUNCHT 



H 



Moves Text into card image 



GENTXT 
PUNCHT 



PUNCHT 



Punches cards ensuring that RLD 
cards follow related TXT card 



CARDOU 



Generates text for compiler 
subroutine 



INCLUD 



GENTXT 
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r — _ — . . T „ 

I Routine/Subroutine | 
h _ + . 



Table TT1. Phase TT Routine/ Subroutine Directory 

Function 

CARDOU I Directs card image to load file or punch file. 

EOBRTN | Chains to next input text block. 

FINEQ1 (Locates label number table entries. 

GENTXT (Moves text into card image . 

IL0002 | Scans text. 

IL0003 (Entry point to scan from initialization routines, 

IL0010 (Initializes location counter at start of procedure. 

IL0011 (Resumes containing procedure at end of procedure. 

IL0012 (Generates text for RR instructions. 
IL0013 



IL0014 
IL0015 
IL0016 
IL0017 
IL0019 
IL0020 
IL0022 
IL0027 
OFFSET (TU) 

PUNCHT 



Generates text for RX non- branch branch instructions, LM f STM f and 
SI type. 

Generates text for SS instructions. 

Processes the start of prologues. 

Processes the end of prologues. 

End-of-text routine. 

Sets up trace information and numbers compiler labels. 

Generates text for branch and load address instructions. 

End-of -block routine. 

Generates text for shift instructions. 

Determines offset and relocation pointer from given dictionary 
reference. 

Punches cards ensuring that RLD cards follow related TXT card. 
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Table UA. 
r 



Phase UA Final Assembly Initial Values, Pass 1 



T — .. „ . T 

Main Processing 
Routine 



Statement or Operation Type 



Subroutines Used 



Scans STATIC chain to beginning of 
external section 



UA001 



UA200, UA22 0, UA230 



Initializes scalar variables 



UA200 



TXTMOV 



Initializes BCD for label 



UA220 



RLDMOV, TXTMOV 



Initializes DED for temporary 



UA230 



TXTMOV 



Initializes address constants. 
I— 



UA010 



UA401, UA403, UA404, UA405, UA406 



h 



Initializes symbol table entries 



UA080 



RLDMOV, TXTMOV 



Initializes address slots for 
external variables 



UA403 



RLDMOV, TXTMOV 



h 



Initializes address slots for func- 
tions and programmer- defined 0N- 
condition names 



UA401 



RLDMOV, TXTMOV 



h 



Initializes address slots for label 
constants 



UA404 



RLDMOV, TXTMOV 



Initializes address slots for entry 
labels 
j. . „ 

Initializes file attribute entries 
and files 
j _ ._ „ _ 

Initializes constants pool 



UA405 



RLDMOV, TXTMOV 



UA406 



RLDMOV, TXTMOV 



UA014 



RLDMOV, TXTMOV 



Initializes dope vector skeletons 



UA021 



TXTMOV 



Initializes argument lists 



UA025 



RLDMOV, TXTMOV 
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Table UA1. Phase UA Routine /Subroutine Directory 



j Routine/Subroutine j 
j. 



Function 



Moves card images to load file. 

Moves RLD entries to card buffer. 

Moves TXT entries to card buffer 

Entry point from compiler control. 

Scans STATIC chain to start of external section, to initialize sca- 
lar variables. 

Return point for branches taken in first scan. 
Initializes address constants. 

Return point for branches taken in second scan- 
Initializes constants pool. 
Initializes dope vector skeletons. 
Produces text for dope vector skeleton. 
Initializes argument lists. 

Return point for branches taken in last scan. 
Initializes symbol table entries. 
Initializes one-word CSECT 'IHEMAIN 1 , 
Exit from UA to compiler control and UD. 
Initializes scalar variables. 
Initializes BCD for label. 

Entry to label routines for label variable BCDs. 
Initializes DED and FED for temporary. 

Initializes address slots for functions and programmer-defined ON- 
condition names. 

Initializes address slots for external variables. 

Initializes address slots for label constants. 

Initializes address slots for entry labels. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Makes text for file attributes entry. 

Initializes array variables. 

Initializes arrays of varying strings. 

Initializes bit arrays. 

Completes packing of bit strings in structures or arrays. 



| OUTPUT 


(UB) | 


| RLDMOV 


(UB) 1 


| TXTMOV 


CUB) | 


|UAO00O 




|UA001 




|UA0015 




IUA010 




|UA013 




|UA01<* 


(UC) | 


(UA021 




|UA0215 


(UC) | 


(UA025 




|UA033 




|UA080 


(UC) | 


[UA100 


(UC) | 


|UA100A 




|UA200 




|UA220 


(UC) | 


|UA225 


(UC) | 


|UA230 


(UC) [ 


1UA401 




(UA403 




[UA40U 




|UA*405 




|UA406 




|UA407 




|UCINIT 


(UC) | 


(UCUPDT 


(UC) | 


|UC0080 


(UC) | 


(TIDY (UC) | 
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Table UD. Phase UD Final Assembly Pseudo-Code Static DSA f s 

r ' 



"T ' T" 

| Main Processing | 
| Routi ne j 



Statement or Operation Type 



Subroutines Used 



| Scans STATIC DSA chain |A1 
j. _ . + _ 

(Scans STATIC DSA f s AUTOMATIC chain | AUTO 



IAUTO 



(DAT, LAB, STRUC 
_X 

|TXTMOV(UB) f RLDMOV(UB) 



[Initializes dope vectors for data [DATLAB 
| items and label variables | 

| (unstructured) | 



(Initializes dope vectors for 
| structures 

L . . . „ 



| STRUC 



JTXTMOV(UB),TLDMOV(UB) 



1 

-X- 



Table UD1. Phase UD Routine/ Subroutine Directory 

r t " ■ • — - 

| Routine/Subroutine ( 
| 

IA1 

I 

| AUTO 

I 

| DATLAB 

I 

| STRUC 



Function 



[UDOOO 



1UDEND 



Scans STATIC DSA chain. 

Scans STATIC DSAs AUTOMATIC chain. 

Initializes dope vectors for data items and labels. 

Initializes structure dope vectors. 

Entry point 

Releases control. 



x 
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Table UE. Phase UE Final Assembly Initial Values, Pass 2 



_. T T „ — . _ . . . 

(Main Processing | 
Statement or Operation Type | Routine j Subroutines Used 
_ . _ . . + „ „_+„„ 

Scans STATIC chain to beginning of |UA001 JUA200, UA22 0, UA230 
external section | j 

__ _„____. „ +_„_ _„ + __„__ . 

Initializes scalar variables 1UA200 [TXTMOV CUB) 
.„ _ _ _. _ + _ ._ + ___ „. ._ 

Scans STATIC chain to initialize |UA003 JUA300, UA320 r UA340, UA360, UA365 
internal dope vectors | j 

._ . _ - + _„_ + „„_ _ 

Initializes dope vectors for |UA300 (RLDMOV CUB), TXTMOV CUB) 

internal strings | j 

._ „_. .„__ + __ + „ _____ . 

Initializes dope vectors for [UA320 (RLDMOV CUB), TXTMOV CUB) 

internal data arrays | | 

.„___ _ __„ _ __ + _„__„„„_ + -_„___ . . 

Initializes dope vectors for arrays (UA340 | TXTMOV CUB) , UCUPDT CUC) 
of varying strings | j 

__ _ .„ _ + _„_„_ „„ + _ __ 

Initializes dope vectors for |UA360 (RLDMOV CUB) f TXTMOV CUB) 
internal label arrays | j 

_. __ _„.|_ .„„ + _„___ „. 

Initializes dope vectors for |UA365 |UA300 f UA320, UA360 

„ _ __ _ + __ + _ . „. 

Initializes arrays |UA030 | RLDMOV CUB), TXTMOV CUB), 

| JUCINIT CUC) 
„__ ____„______+„ __ + . _ _ . 

Initializes structures (UA040 (TXTMOV CUB), UA200, UC0800 CUC), 

| |TIDY CUC) 
__„_ ___„_„„ + _______ f 

Initializes one word CSECT (UA100 (OUTPUT, RLDMOV, TXTMOV Call in UB) 
1 IHEMAIN* | | 

.__ ______ _„_ „ + .___ _ + _ „_ . 

Initializes CSECT for STATIC (UA10G5 [OUTPUT CUB), UA030, UA200, UA300, 
external variables I |UA320, UA360, UA365 , UAH 01, UA406 

J. _ X 


T T 

Makes up END card and terminates |UA120 (OUTPUT CUB) 
phase | | 



(. — _ — . — . — -_l___ — ... 

(Initializes array variables 



|UCINIT CUC) 

-±. „_ . __. 



_ + _ __. _. 1 

JTXTMOV CUB), UC0080 CUC), TIDY CUC) j 

-JL__ . J 
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Table UE1. Phase UE Routine/Subroutine Directory 

I ' T " ' ~ ' 

| Routine/ Subroutine | Function 



AREA 

EVENT 

TASK 

UA000 

UA001 

UA0015 
UA003 

UA021 

UA030 

UA031 

UA033 

UA034 

UA040 

OA100 (UC) 

UA105 

UA120 

UA200 

UA207 

UA300 

UA320 

UA340 

UA360 

UA365 

UA401 

UA406 

UA1005 



Initializes AREA variables. 

Initializes EVENT variables. 

Initializes TASK variables. 

Entry point from UA and compiler control. 

Scans STATIC chain to start of external section, to initialize sca- 
lar variables. 

Return point for branches taken in first scan. 

Scans STATIC chain to initialize all dope vectors for internal 
variables. 

Start of scan for arrays and structures. 

Initializes arrays. 

Produces RLD entry for label array virtual origin. 

Return point for branches taken in array scan. 

Produces RLD entry for data array virtual origin. 

Initializes structures. 

Initializes IHEMAIN CSECT. 

Return point for branches taken in external scan. 

Makes up END card and terminates phase. 

Initializes scalar variables. 

Lists label variables. 

Initializes dope vectors for internal strings. 

Initializes dope vectors for internal data arrays. 

Initializes dope vectors for arrays of varying strings. 

Initializes dope vectors for internal label arrays. 

Initializes dope vectors for internal structures. 

Initializes address slots for functions and programmer-defined ON- 
condition names. 

Initializes DECLARE control blocks for files and file attributes 
entries. 

Initializes CSECTs for STATIC external variables. 
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Table UF. Phase UF Final Assembly Object Listing 
Statement or Operation Type 



T T . 

Main Processing 
Routine 



l~ 



Subroutines Used 



Scans Text 



IL0002 



None 



Lists RR instructions 



IL0012 
IL0013 



PRINIT, RRRTN 



Lists RX non-branch instructions 



BXRTN r PRINIT f PRNTOU f PRNTVF, 
SECOND 



h 



Lists SS instructions 



IL0014 
IL0026 



EOBRTN, 



PRINIT r 
PRNTOU, 



PRNTOU, SSRTN 
PRNTVF 



Lists shift instructions 



PRINIT f 



Lists LM and STM 



h 



IL0027 
IL0028 



PRINIT, PRNTOU, 



PRNTVF, SECOND 
PRNTOU, PRNTVF 



Lists SI instructions 



H- 



CHARVF, 
SECOND, 



PRINIT, 
SSRTN 



Lists branch and load address 
instructions 



IL0020 



IL0013, 
RRRTN 



NAMEIT, NAMEQU, PRINIT, 



h 

Lists labels 



IL0019 



H- 



NAMEVF, 
PRNTLC, 



NEXTEL, 
PRNTOU, 



NEXTSL, 
PRNTVF, STATMN 



Lists procedure names 



IL0010 
IL0011 
SECOND 



NAMEVF, 



NEXTEL, 
NEXTEL, 



PRNTOU, STATMN 
PRNTOU 



Lists ends of procedures 
I— 



+- 



NAMEVF, 



Scans ahead for literal offsets? 
inserts second instruction byte 
into print image 
,. 

Generates listing of text for base 
offset pair 



EOBRTN 



SSRTN, BXRTN 



ABSOFF, ADDEND, NAMEIT, NAMEQU, 
PRNTVF 



h 



Names generated label number 
I— 



NAMEQU 
PRINIT 



DEC INT, FINEQ1 



h 



Inserts location counter value, and 
hexadecimal and mnemonic operation 
codes in print line 



PRNTLC 



Moves variable length item into 
variable field part of print line 

j. 

Lists statement numbers 

, 

Determines name and offset from 
dictionary reference 



PRNTVF 



PRNTOU 



+ 



STATMN 



STATNO 



NAMEIT 



DECINT, HEXINT 



Generate listing of compiler 
subroutine 



IL0017 



PRNTLC , PRNTVF , PRNTO U 
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Table UF1. Phase UF Routine/ Subroutine Directory (Part 1 of 2) 

f . T . . . . _ . — ._ 

| Routine/Subroutine | Function 



ABSOFF 

ADDEND 

BXRTN/SSRTN 

CHARVF CUG) 

DECINT CUG) 

EOBRTN 

FINEQ1 

HEXINT (UG) 

ILOOOO 

IL0002 

IL000 3 

IL0010 CUG) 

IL0011 CUG) 

IL0012 

IL0013 

IL0014 

IL0015 

IL0016 

IL0017 CUD 

IL0018 

IL0019 CUG) 

IL0020 

IL0026 

IL0027 

IL0028 

IL0032 

IL1003 CUG) 

IL2005 

NAMEIT 

NAMEQU 

NAMEVF CUG) 

NEXTEL CUG) 



Appends literal offsets to operands in variable part of print line. 

Appends signed literal offsets to operands. 

Generate listing of text for base offset pair. 

Places one character in variable field of print line image. 

Converts binary to externally coded decimal. 

Chains to next input block. 

Locates label number table entries. 

Converts binary to externally coded hexadecimal. 

Entry pcint from compiler control. 

Scans text. 

Entry to scan from initialization routines. 

Lists procedure names. 

Lists ends of procedures . 

Lists RR instructions. 

Lists RX non- branch instructions. 

Lists SS instructions . 

Processes the start of prologues. 

Processes the end of prologues. 

End- of -text routine, and compiler subroutine listing. 

Processes compiler generated label numbers. 

Lists labels. 

Lists branch and load address instructions. 

Lists shift instructions. 

Lists LM and STM. 

Lists SI instructions . 

Processes SS decimal instructions. 

Prints "♦PROCEDURE" followed by entry names and statement number. 

Identifies operands. 

Determines name and offset from dictionary entry. 

Names generated label number. 

Places a variable name in the print line. 

Scans dictionary for multiple entry labels. 
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Table UF1. Phase UF Routine/Subroutine Directory (Part 2 of 2) 

Function 



r T _ 

| Routine/Subroutine | 



H- 



NEXTSL (UG) 

NM0003 (UH) 

PRINIT (UG) 

PRNTLC (UG> 

PRNTOU (UG) 

PRNTVF (UG) 
RRRTN 
SECOND 

STATMN (UG) 

STATNO (UG) 



Scans dictionary for multiple statement labels. 

Common return point in naming routine. 

Prints location counter value, hexadecimal, and mnemonic op codes. 

Converts location counter to hexadecimal; places it in print image. 

Prints a line. 

Moves variable length item into variable field part of print line. 

Generates RR format listing of text. 

Scans ahead for literal offsets; inserts second instruction byte 
into print image. 

Lists statement numbers. 

Converts statement number to decimal. 
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ERROR EDITOR PHASE TABLES 



Table XA. Phase XA Error Message Editor 

r ■ — ■ ■ t t ' — 

I (Main Processing | 

| Statement or Operation Type | Routine | 

I. : — + _„ + 

(Determines whether error messages |XA (None 

(are to be printed j | 

I. „ + 

(Scans error message text skeletons (XA8 
(and prints them out | 

L . . —A 



Subroutines Used 



(XA50, XA70, XA90, XA110, ZUPL 

I 

-A . 



Table XA1. Phase XA Routine/Subroutine Directory 



(Routine/ Subroutine! 
I. + 



XA 

XAO 

XA01 

XA1 

XA2 

XA4 

XA7 

XA8 

XA9 CXB> 

XA12A 

XA30 (XB) 

XA32 (XB) 

XA35 (XB) 

XA40 (XB) 

XA50 (XB) 

XA70 (XB) 

XA9 (XB) 

XA110 (XB) 
ZUPL 






Function 

Determines whether error messages are to be printed 

Sets severity code. 

Establishes which message types to suppress. 

Counts number of error chains to be processed. 

Puts out -nessages if there are no diagnostics. 

Prints out "COMPILER DIAGNOSTIC MESSAGES" . 

First scan of message chains. 

Scans error message text skeletons and prints them. 

Scans to head of next non-empty chain. 

Selects and prints header for messages of given severity. 

Gets next entry in message chain. 

Builds up first part of message in buffer. 

Accesses message skeleton. 

Puts out completed message. 

Moves message text to print buffer. 

Converts binary statement number to character representation, and 
moves it to print buffer. 

Converts binary numeric value to character representation and moves 
it to print buffer. 

Moves identifier from dictionary entry to the print area. 

Prints a line on PLILIST data set. 
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FLOWCHART CONVENTIONS 

The flowcharts in this manual were produced by the IBM System/360 Flowchart Program 
CFL/I) , using ANSI symbols. Following is a description of the ANSI symbols and flowchart 
conventions. 



r~ B1 — \ 

f TERMINAL BLOCK \ 





/INPUT/OUTPUT / 
/ BLOCK / 



/ PREI 



DEFINITION 



INDICATES AN ENTRY OR 
TERMINAL POINT IN A FLOW- 
CHART; SHOWS START. STOP, 
HALT, DELAY. OR INTERRUP- 
TION. MAY ALSO INDICATE 
RETURN TO THE CALLING 
PROGRAM . 



INDICATES A PROCESSING 
FUNCTION OR A DEFINED OP- 
ERATION CAUSING CHANGE IN 
VALUE, FORM OR LOCATION 
OF INFORMATION. 



INDICATES A DECISION OR 
SWITCHING-TYPE OPERATION 
THAT DETERMINES WHICH OF 
A NUMBER OF ALTERNATE 
PATHS SHOULD BE FOLLOWED. 



INDICATES A SUBROUTINE OR 
MODULE THAT IS DESCRIBED 
IN THIS MANUAL 



INDICATES A SUBROUTINE OR 
MODULE THAT IS INCLUDED 
IN THE FLOWCHARTS OF AN- 
OTHER MANUAL. 



INDICATES GENERAL I/O 
FUNCTIONS, SUCH AS GET, 
PUT, READ, WRITE, SIO, 
AND DEVICE-CONTROL MACRO 
INSTRUCTIONS. 



INDICATES A PROCESS THAT 
CHANGES SYSTEM OPERATION. 
FOR EXAMPLE, SETS A SWITCH, 
MODIFIES AN INDEX REGISTER, 

OR INITIALIZES A ROUTINE. 



INDICATES ENTRY TO OR EXIT 
FROM ANOTHER BLOCK ON THE 
SAME FLOWCHART PAGE. 



INDICATES ENTRY TO OR EXIT 
FROM A BLOCK ON ANOTHER 
PAGE OF THE SAME SET OF 
FLOWCHARTS . 



G 





VIA: PASSMECH 




D 



EP=ENTRYPT 
CHART AC 
VIA: PASSMECH 



MODNAME IS THE LOAD MODULE OR LIBRARY 
NAME OF THE ROUTINE DESCRIBED BY THIS 
FLOWCHART . 



OTHERMOD INDICATES THE MODULES PASSING 
CONTROL TO THIS MODULE AND THEIR FLOW- 
CHARTS . 



D3: PROGRAM EXECUTION CONTINUES WITH BLOCK 
H3 WHEN THE DECISION IS NO, OR 
BLOCK E3 WHEN THE DECISON IS YES. 



LABEL2 IS THE LABEL OF THE SECTION OF 
CODE IN THIS ROUTINE FROM WHICH CONTROL 
IS PASSED TO THE SUBROUTINE. CONTROL 
RETURNS TO THE NEXT INSTRUCTION FOLLOW- 
ING THE SUBROUTINE CALL. 

ENTRYPT IS THE ENTRY POINT. 



LABEL3 IS THE LABEL OF THE SECTION OF 
CODE FROM WHICH CONTROL IS PASSED TO THE 
PREDEFINED PROCESS PDPNM, WHICH IS 
DOCUMENTED IN ANOTHER PUBLICATION 
( -PDPNM- MAY ALSO BE USED IN A PROCESS- 
ING BLOCK) . 



EXECUTION CONTINUES WITH BLOCK H3 WHEN 
THE DECISION IS YES. OR WITH BLOCK AT ON 
PAGE 2 OF THIS SET OF FLOWCHARTS WHEN 
THE DECISION IS NO. 

THE OFFPAGE CONNECTOR MARKED 01 H 3 INDI- 
CATES THAT EXECUTION CONTINUES WITH BLOCK 
H3 FROM ANOTHER PAGE OF THIS SET OF FLOW- 
CHARTS. THIS CONNECTOR IS ALSO PAIRED 
WITH THE ONPAGE CONNECTOR FROM BLOCK D3. 
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Flowcharts on pages 221-360 were not scanned. 



SECTION 4: DATA AREA LAYOUTS 



RESIDENT TABLES 

There are three resident tables: the dic- 
tionary, the keyword tables, and the phase 
directory. The dictionary is resident 
through part of the compilation; the for- 
mats of the dictionary entries are fully 
described in this section • The keyword 
tables are resident during the read- in log- 
ical phase, and the phase directory 
throughout the compilation. 



ORGANIZATION OF KEYWORD TABLE S 

The read- in phase is divided into five 
passes containing the modules shown in 
Figure 10 . 



Modules CA and CC contain routines which 
are common to all five passes. The keyword 
tables are held in separate modules (CE, 
CK f CN, and CR) which must each be less 
than 1,02*4 bytes (IK) long. In this way it 



is possible to hold in storage only those 
keywords which are required for any one 
pass. The keyword tables are constructed 
in the following manner. 



For ease of searching and modifying a 
keyword table, it is organized into two 
levels and by keyword length, as shown in 

Figure 11. 



The KEYWD routine is called by one of 
the statement scanning routines, and is 
supplied with a parameter which enables it 
to decide which set of keywords to look at 
Ce.g. # statement identifier, ON condition, 
miscellaneous) . It does this by using the 
parameter to extract the required relative 
address (R(A),etc.) from the first level 
directory. The second level directory pro- 
vides the KEYWD routine with the means of 
reaching a table containing keywords of 
correct length; the KEYWD routine calls the 
KEYID routine, which scans the next signi- 
ficant item in the source text to obtain 
the length used in this look-up. 
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Figure 10. Organization of Read-In Phase 



Section 4: Data Area Layouts 361 



r 1 

-~ | R(A) 

|. 

r H R(B) 

F 

| R(C) 
|. 



A«->| 



A 

A 
I— 



| B<-> 

H 

I 
H 

i 



h 



First Level 
Directory 



A I 



ct»> 



S econd 
~\ Level 
Direc- 
— | tory 



Figure 11. Organization of Keyword Table 

Format of First Level Directory 

FSTLVL DC AL2CSTATID - FSTLVL) 
DC AL2C0NID - FSTLVL) 

Format of Second Level Directory 

The second level tables contain relative 
addresses, which enable the KEYWD routine 
to reference a third level table containing 
keywords of the correct length. If one of 
these entries should contain zero, then 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table, 

STATID DC FL2 , ^l , where m is smallest 

length in table 

DC FL2 , n s where n is largest 
length in table 

DC AL2(STLm- STATID) 

DC AL2(STLn~STATID) where the 

symbols beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 

Format of Third Level Tables 

The third level tables have a prefix byte 
containing the number of entries in this 
particular table followed by keyword 
entries. These consist of the keyword in 
internal code plus the replacement charact- 
er (keywords recognised as such are 
replaced by a single code byte) . 



STLm DC FLl 8 x' where x is number of 
keywords in this table 

DC X" 112315 f keyword in internal 
code 

DC X'SS 1 replacement in internal 

code 

DC X , 393839 i 

DC X'SA 1 

Some keywords are not represented by one 
word Ce.g*, GO TO f BY NAME) and clearly, 
the mechanism must be modified to cope with 
the second word. This modification is 
achieved by placing a 1-bit into the first 
bit of the first level by using the OR log- 
ical operation. The presence or absence of 
this bit is tested by the KEYWD routine 
before the suspected keyword is compared. 
If the bit is absent, the pass through the 
routine is quick, as there is no possibili- 
ty of an extra level search. If the bit is 
present, the keyword must be compared after 
the additional bit has been removed by the 
AND logical operation. If the comparison 
is equal, the two bytes following the 
replacement character are used as a rela- 
tive address to reach the next level table. 



Format of Entry Requiring Additional 
Comparisons 

DC X f 9726' GO + X s 1000' 

DC X f 40 s 

DC AL2CN XTLVL-*) Relative address 
of next level table 

The format of these extra level tables 
is similar to that for the third level. In 
this way, it is possible for national lan- 
guage keywords to replace single words by 
two or more words, if so desired. 



PHASE DIRECTORY 

The phase directory is a list maintained in 
module AA. Each entry in this list is 8 
bytes long. The first two bytes contain 
the module name. The remaining 6 bytes are 
initially blank. When an output module is 
loaded, the address in virtual memory of 
each module within that output module is 
slotted into the last 4 bytes of the rele- 
vant entry in the phase directory. This 
directory is used by the phase linkage rou- 
tines in module AA to locate the compiler 
modules in virtual memory. 

The format of a phase directory entry is 

as follows z 
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| Byte Number I Description 

| + __ _ 

0-1 1 Module name 

Initially blank? however, 
when output module is 
loaded, bytes H-7 contain 
address of individual 
module in output module. 




INTERNAL FORMATS OF DICTIONARY ENTRIES 

The following description of the formats of 
dictionary entries during the compilation 
of a source program is organized in this 
manner: 

1. Dictionary Entry Code Bytes 

2. Dictionary Entries for ENTRY Points 

3. Code Bytes for ENTRY Dictionary 
Entries 

**. Dictionary Entries for DATA, ISABEL, 
and STRUCTURE Items 

5. Code Bytes for DATA, LABEL, and STRUC- 
TURE Dictionary Entries 

6. Format of Variable Information 

7. Other Dictionary Entries 

8. Dimension table 

9. Dictionary Entries for Initial Values 

1. DICTIONARY ENTRY CODE BYTE S 

The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic mes- 
sages between phases of the compiler; the 
text describes the operations to be carried 
out on the elements. 

Each type of element has a characterist- 
ic dictionary entry, which is identified by 
a code occupying the first byte of the 
entry. In general, each type of element 
has a different code byte, but in order to 
permit rapid identification of dictionary 
entries, the code bytes have been allocated 
on the following basis: 

First Half Byte 



1* entry is to be chained 
1 entry not to be chained 

2 not a member of structure 
1 member of structure 

3 not dimensioned 
1 dimensioned 

♦This bit only applies to Phase FT which 
constructs the storage class chains by a 
sequential scan of the dictionary; later in 
the compiler, items with this bit on are 
added to the storage class chains. 

Second Half Byte 

In the second half byte, the following 
codes have the meanings shown, unless the 
first half byte is X'C f : 

X^' means label variable 

X f C f means task identifier 

X'D f means event variable 

X'E" means structure 

X'F" means data variable 

The second and third bytes of every dic- 
tionary entry contain the length, in bytes, 
of the entry. If the entry has BCD (i.e., 
the first bit of the entry is zero) , this 
length count does not include the BCD; 
instead, the BCD, which follows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of BCD. 

Using this general scheme, the code 
bytes allocated for dictionary entries 
appear in the following table. Code bytes 
in the table which have no corresponding 
description are not allocated. 



Bit Bit 
Position Value 


1 



Meaning 
entry has BCD 
entry has no BCD 



•GO 1 
01 
02 
03 
OH 
05 

06 
07 
08 
09 
0A 
0B 

oc 

0D 
0E 
OF 



10 
11 
12 
13 
14 
15 



Statement label constant 

Procedure or entry label 

GENERIC entry label 

External entry label (entry type 4) 

Built-in function, e.g., DATE 

Temporary variable and controlled 

allocation workspace 

Built-in GENERIC label, e.g., SIN 

Label variable 

File constant 



Task identifier 
Event variable 

Data variables (not dimensioned or a 
structure member) 
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16 
17 
18 
19 
1A 
IB 
1C 
ID 
IE 
IF 

20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
2B 
2C 
2D 
2E 
2F 

30 
31 
32 
33 
34 
35 
36 
37 

38 
39 
3A 
3B 
3C 

3D 

3E 
3F 



40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
4A 
4B 
4C 
4D 
4E 
4F 

80 



Dimensioned label variable 



Dimensioned task identifier 
Dimensioned event variable 

Dimensioned data variable 



Label variable in structure 



Task identifier in structure 
Event variable in structure 
Structure item 
Data variable in structure 



Dimensioned and structured label 
variable 



Dimensioned task identifier in 

structure 

Dimensioned event variable in 

structure 

Dimensioned structure item 

Dimensioned and structured data 

variable 

Formal parameter type 1 



ON CONDITION entry 



ENTRY type 1 — from a PROCEDURE 
statement 



81 

82 
83 
84 
85 
86 
87 

88 
89 

8A 
8B 
8C 
8D 
8E 
8F 



90 
91 
92 
93 
94 
95 
96 
97 

98 
99 
9A 
9B 
9C 

9D 

9E 
9F 



A0 
Al 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
A9 
AA 
AB 
AC 
AD 
AE 

AF 

B0 
Bl 
B2 
B3 
B4 
B5 
B6 
B7 



BEGIN statement entries — entry 

type 1 

ENTRY statement — entry type 1 

Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 

temporary 

Constant 

File formal parameter or file 

temporary 



Task identifier formal parameter 
Event variable formal parameter 

Data variable formal parameter or 
temporary 

Invocation count dictionary entry 



Dimensioned variable formal parameter 

or temporary 

File attribute entry 



Dimensioned task identifier formal 

parameter 

Dimensioned event variable formal 

parameter 

Dimensioned data variable formal pa- 
rameter or dimensioned temporary 



Structured label variable temporary 



Structured task identifier temporary 

Structured event variable temporary 

Temporary or formal parameter 

structure 

Structured data variable temporary 



Dimensioned and structured label 
variable temporary 
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B8 
B9 
BA 
BB 
BC 

BD 

BE 

BF 



CO 
CI 
C2 

C3 
C4 
C5 
C6 
C7 
C8 

C9 
CA 
CB 
CC 

CD 
CE 
CF 



Dimensioned and struct ured task iden- 
tifier temporary 

Dimensioned and structured event 
variable temporary 

Dimensioned structure formal parame- 
ter or temporary 

Dimensioned and structured data vari- 
able temporary 

String dope vector for temporary 
DED2 entry 

Internal library function, e.g., con- 
version routines 
Compiler label 
Prefix ON list item 
Parameter lists 
Dope vector skeletons 
Symbol table entry or DED entry 
Error message, table entry, workspace 
requirement, STATIC DSA, etc. 
Record dope vector CRDV3 entry 
Workspace requirement entry 
Select a member from a generic family 
AUTOMATIC chain delimiter or Dope 
Vector Descriptor (DVD) entry 
ON condition entry 
Label BCD entry 

End of information in dictionary 
block 



2. DICTIONARY ENTRIES FOR ENTRY POINTS 

Entry type 1 for PROCEDURE, BEGIN, and 
ENTRY statements 

The format of an entry for a PROCEDURE 
statement is as follows: 



Byte 

Number 

1 

2-3 

4 

5 

6-7 

8-9 



10-11 



12-13 



Description 
Code byte X* SO* 

Length 

Level 

Count 



Dictionary reference to the entry 
type 1 of the containing block 

Dictionary reference of the dic- 
tionary entry for the first label 
that was attached to the PROCE- 
DURE statement 



Dictionary reference to the entry 
type 1 of the next PROCEDURE or 
BEGIN statement in the source 
program 

The start of the chain of all 
AUTOMATIC variables 



14-15 
16-17 
18-19 



20-21 



22-23 



24-25 



26-28 



29-31 



32-34 



35-37 



38-40 



41-42 



43 
44-57 



Dictionary references to 
three dictionary entries 
indicating storage require- 
ments for workspace 

Dictionary reference of CHECK 
list set by phase FO. 

Phase QU re-uses this slot and 
sets it to the offset from regis- 
ter 9, at which the register 
allocator workspace is to start. 

Dictionary reference of NOCHECK 
list 

Dictionary reference of the first 
symbol table entry for this block 

Size of the DSA for this block, 
set in storage allocator phase 

Note : If this procedure has a 
static DSA, a W C8 static DSA" 
entry is made by phase PA and the 
dictionary reference of this 
entry is put in bytes 27 and 28. 
Phase MA moves, into bytes 27 and 
28, the dictionary reference of a 
temporary describing a table to 
be built at execution time for 
the TRANSLATE or VERIFY function. 

Offset of the eight words in the 
DSA used for addressing the DSA 

Offset of the storage used for 
the parameter list necessary in 
an ALLOCATE- FREE statement 

Offset of the two-byte switch 
which is set on entry to a proce- 
dure and tested at a RETURN 
C expression) 

Offset of the four-byte slot 
which will contain the address of 
the first approximation of the 
target field (the address of the 
implied parameter) 

Dictionary reference of the entry 
type 1 of the first ENTRY state- 
ment of the procedure. The entry 
type 1 for PROCEDURE and ENTRY 
statements of any one procedure 
form a circular chain. If there 
are no ENTRY statements in a pro- 
cedure this slot will contain the 
dictionary reference of the PRO- 
CEDURE ' s entry type 1 , i.e., of 
the entry in which the slot 
occurs 

OPTIONS code byte 

Eight 2- byte dictionary 
references to dictionary entries 
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60 



61-63 



6*1 



65 



66 
onwards 



for prefix options. Only those 
prefix options which are changed 
within the procedure have a dic- 
tionary reference. The remainder 
are zero. The order of the 
options in this list is the same 
as in the options byte. (See 
"Options Code Byte" in Section 3 
below) 



Options change byte. This byte 
contains a one bit for each pre- 
fix option which is changed 
within the procedure. Its format 
is identical with the normal 
options byte 

Offset of workspace used in BUY 
statement 

Optimization byte 

2*n where n is the number of 
parameters at this entry point 

N dictionary references of 
formal parameter type 1 entries 



The format of an entry for a BEGIN 
statement is similar to the above for the 
first 34 bytes. The initial code byte is 
X'Sl', and the dictionary reference in 
bytes 8 and 9 is that of the first label on 
the original BEGIN statement, if any. If 
there was no statement label, then the 
statement number occupies this slot. The 
presence of a statement number or statement 
label is indicated by a flag byte in posi- 
tion 35. This is set to SN for a statement 
number, or to SI* for a statement label. 
Bytes 36-56 contain the same as bytes 44-64 
in a PROCEDURE entry type 1. 

The format for the entry type 1 derived 
from an ENTRY statement is as follows: 

Byte 

Number Description 

1 Code byte X , 82 i 

2-3 Length 

4 Level 

5 Count 

6-7 Dictionary reference of the next 
member in the circular PROCEDURE- 
ENTRY chain 

8-9 Dictionary reference of the dic- 
tionary entry for the first label 
on the original ENTRY statement 



10-12 



13 



14 



The offset of the apparent entry 
point 

2*n where n is the number of 
parameters 

n dictionary references to the 
formal onwards parameter type 1 
entries 



The labels on a PROCEDURE or ENTRY 
statement will be placed in the dictionary 
according to the following format: 



Byte 

Number 

1 

2-3 

4-5 
6-8 
9-10 



11 



12-13 
14-16 



17 
18 
19 
20 
21 



Description 
Code byte X'Ol* 

Length 

Hash chain (STATIC chain) 

Pointer to transfer vector 

Statement number. If the label 
is mentioned in an ON CHECK list, 
this slot contains the dictionary 
reference of Label BCD Entry 
(X^E'), which has the statement 
number in bytes 4 and 5 

Other 1 code byte. (See "First 
code byte - other 1" in Section 5 
below. ) The last bit will always 
be set to one, unless the label 
is the last label for a particu- 
lar statement, in which case the 
last bit will be set to zero. 

Pointer to entry type 2 

Spare bytes for final assembly. 
The pseudo-code phase dealing 
with RETURN (expression) will 
insert into these bytes a code 
which must be stored in a specif- 
ic slot in the DSA whenever the 
procedure is entered via this 
label. The code is used by the 
prologue construction phase. 
Byte 16 in the first label for 
each PROCEDURE or ENTRY statement 
will contain the number of labels 
associated with that statement 

Block level 

Block count 

Count of containing block 

BCD length-1 

BCD of label 
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Entry Type 2 

An entry type 2 describes the data attri- 
butes of an entry point. The format is as 
follows: 



8-10 



Byte 

Number 

1 

2-3 

4-5 

6-8 



10-12 



Description 
Code byte X'85' 

Length. 

Dictionary reference of entry 
type 3 

Offset, i.e., the position of the 
string dope vector in the DSA of 
the block to which the entry 
belongs. This wilL be zero if 
the item is not a string. 

DATA byte (see "DATA Byte" in 
Section 5 below) . 

Data information, which is: 

1. with numeric data, the preci- 
sion and scaling, left 
justified 

2. for strings of fixed maximum 
length, the binary version of 
the string length in the two 
leftmost bytes of the data 
information 

3. for strings of adjustable 
length, the text reference of 
a second file statement giving 
the expression for the string 
length 

Picture table reference, if 
required. The storage allo- 
cation phase will change this to 
the dictionary reference of a DED 
entry, the picture table 
reference being moved into this 
reference if necessary 



Entry Type 3 

Entry type 3 dictionary entries are con- 
structed either from an explicit declara- 
tion or from implicit and default rules. 
Their format is as follows : 



11 



12-13 



14-15 



16-17 



13-14 



18-19 



20 



Byte 

Number 

1 

2-3 

4-5 

6-7 



Description 
Code byte X'84 f 

Length of entry. 

Dictionary reference of entry 
type 1 of PROCEDURE or ENTRY 
statement. 

Dictionary reference of entry 
type 2. This describes the value 
returned when the label asso- 



21 



22 
onwards 



ciated with this entry type 3 is 
invoked as a function. 



The offset in the DSA of the con- 
taining block of the first appro- 
ximation of the storage for the 
value returned by this entry 
point, when it is invoked as a 
function. 

The entry code byte. (See "Entry 
Code Byte" in Section 3 below) 

The dictionary reference of an 
item in the AUTOMATIC chain of 
the containing block. Entry type 
3 entries feature in the AUTOMAT- 
IC chain of the containing block. 

Switch bytes. The pseudocode 
phase dealing with RETURN (expre- 
ssion) inserts into these bytes 
the bit pattern of the code which 
will signify that entry to the 
procedure was by the label asso- 
ciated with this particular entry 
type 3. Phase QF will use this 
to create MVI instructions. 

Dictionary reference of a SETS 
list. This will be zero if the 
attribute SETS was not specified. 
The format of a SETS list is 
given at the end of this section. 

Dictionary reference of the dic- 
tionary entry for the label 
belonging to this entry type 3. 

Status byte. This byte will con- 
tain X'OO 1 or X'FO 1 . X f 00 f indi- 
cates that the entry was con- 
structed from an ENTRY declara- 
tion which had parameter descrip- 
tions. X'FO* indicates the entry 
was constructed either artifi- 
cially or from an ENTRY declara- 
tion which did not have parameter 
descriptions . 

2*n where n is the number of 
parameters. This is zero if the 
status byte is X'FF' 

If the status byte is X^O' 
there are n two- byte references 
of parameter descriptions. A pa- 
rameter description is a dic- 
tionary entry for the particular 
type of item but without a BCD. 
If one particular parameter is 
not described, i.e. if there are 
two adjacent commas in the ENTRY 
attribute, then the dictionary 
reference is zero. When the sta- 
tus byte is X^O' then an entry 
type 3 is only 2 3 bytes long. 
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22+2n- 
23 + 2n 



DECLARE statement number 



SETS List Format 



Byte 

Number 

1 

2-3 
4-5 



Description 
Code byte X'C8' 

Overall length of original 
BCD entry 

2*nl where nl is the number of 
identifiers in the SETS list. If 
* was specified, these bytes con- 
tain 2*nl+l. 



6-5+2*nl Dictionary references of the 
identifiers in the SETS list. 

6+2*nl n2, the number of para- meters in 
the SETS list. 



19-20 



21-22 



23 



b) for strings of fixed maximum 
length, the binary version of 
the string length in the two 
leftmost bytes of the data 
information 

c) for strings of adjustable 
length, the text reference of 
a second file statement giving 
the expression for the string 
length 

Picture table address if 
required. 

Dictionary reference of a SETS 
list 

Status byte. If this byte is 
X f 00 i the meaning is the same as 
the status byte in an entry type 
3. If the byte is X'FF' it is 
implied that no parameters were 
described 



7+2*nl n2 numbers of one byte each. 24 
onwards These are the parameter numbers 
and will be in ascending order. 

Entry Type 4 

Entry type 4 dictionary entries describe 25 
external entry points. Their format is as 
follows : 



2*n where n is the number of 
parameters. This is zero if the 
status byte is X'FF' parameters. 
This is zero if the status byte 
is X'FF' 

n dictionary references to param- 
eter descriptions as in an entry 
type 3 



Byte 

Number 

1 

2-3 

4-5 



Description 
Code byte X 9 Q3* 

Length 

Hash chain, later used as the 
STATIC chain 



25+2*n 

26+2*n 

27+2*n 

28+2*n 
onwards 



Level 
Count 
BCD length-1 

BCD of identifier 



6-8 Offset of the load constant in 
STATIC 

9-11 Offset in the DSA of the declara- 
tion block of the storage for the 
first approximation of the value 
returned. 



Entry Type 5 

Entry type 5 dictionary entries describe 
the entry points which are formal parame- 
ters. They have the same format as entry 
type 4 except that; 



12-13 



14 



15 



The dictionary reference of an 
item in the AUTOMATIC chain of 
the declaring block. Entry type 
4 entries are members of the 
AUTOMATIC chain of the declaring 
block. 

The Entry code byte. (See "ENTRY 
Code Byte" in Section 3 below) . 

The DATA byte. (See "DATA Byte" 
in Section 5 below) 



Byte 1 is X'SS* 

Bytes 4 and 5 contain the address of 
the formal parameter type 1 entry 

Bytes 6 to 8 contain the offset in the 
DSA of the declaring block of the 
address slot associated with a formal 
parameter 

No BCD is contained in the entry 



16-18 Data information which is: 

a) with numeric data, the preci- 
sion and scaling, left 
justified 



GENERIC Entry Point 

The format for a GENERIC entry point is as 
follows : 



368 



Byte 

Number Description 

I Code byte X'02' 

2-3 Length 

4-5 Hash chain 

6-8 Offset 1 Slot 

9-10 DECLARE statement number 

II 2n f where n is the number of two- 
byte addresses following 

12-ll+2n Pointers to entry type <l or 5 , 

ENTRY labels, or BUILTIN entries. 
These entries are made when an 
identifier is given the attribute 
GENERIC. The pointers are to the 
entries which contain specifica- 
tions of the various possible 
attributes 



12+2n 


Level 


13+2n 


Count 


14 + 2n 


BCD length- 1 


15+2n 


BCD 


onwards 





3, CODE BYTES FOR ENTRY DICTIONARY ENTRIES 



ENTRY Code Byte 

This code byte is used in entry type 3 f 4, 
and 5 dictionary entries. The format is as 
follows: 



Number 



Description 
IRREDUCIBLE 


1 


REDUCIBLE 


2 


USES 


3 


SETS 


4 


SECONDARY 


5 


RECURSIVE 


6 


Has data attribute 


7 


Not used 


Options 


Code Byte 



Byte 

Number 




Description 
REENTRANT 


1 


ON Block 


2 


MAIN 


3 


TASK 


4 


RECURSIVE 


5 


OPTIONS 


6 


Contains RETURN (expres: 
statement 


7 


ENTRY name is passed as 
argument 


Optimization Byte 



This code byte is used in entry type 1 dic- 
tionary entries. 

Format of the Optimzation Byte: 



Byte 

Number 



1 

2 
3 
4 
5 



Description 

Not eligible for DSA in library. 

Eligible for DSA in STATIC 
storage. 

Needs invocation count. 

Needs current file slot. 

Contains asynchronous CALL. 

Indicates ORDER or REORDER option 

= ORDER, 

1 = REORDER. 
Default is ORDER 

Not used. 

Not used. 



This code is used in entry type 1 dic- 
tionary entries for PROCEDURE statements. 
The format is as follows: 



4. DICTIONARY ENTRIES FOR DATA, LABEL, AND 
STRUCTURE ITEMS 

Label Variables - Obtained from DECLARE 
Statement 

Byte 

Number Description 

1 Code byte may be X , 07 , f X*!? 1 , 

X'27*, X % 31< , X , 87 , f X f 97 f , 
X , A7', X'B?'. The last four 
cases apply when the item 
occurred in a parameter list in a 
PROCEDURE or ENTRY statement. In 
this case, bytes 4 and 5 will 
contain the dictionary reference 
of the corresponding formal pa- 
rameter type 1 entry. In the 
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2-3 
4-5 



6-8 

9-10 
11 

12 
13 

14 

15 



16 
onwards 



2 bytes 
1 byte 
1 byte 
1 byte 



first four cases, bytes 4 and 5 
initially contain the hash chain - 
After the scan of the dictionary, 
this slot will be re-used to form 
another chain, e.g., AUTOMATIC or 
STATIC chain 

Length 

Initially contains the hash 
chain. After the dictionary 
scan, this is re-used to form 
another chain, e.g., AUTOMATIC or 
STATIC chain 

Offset inserted by storage allo- 
cation phase (as for a data item) 

DECLARE statement number 

■Other I s code byte (See "First 
Code Byte - Other 1" in Section 5 
below) 

'Variable' code byte (See "Vari- 
able Byte" in Section 5 below) 

'Other 2" code byte (See 'Second 
Code Byte - Other 2" in Section 5 
below) 

•Other 3* code byte (See "Third 
Code Byte - Other 3" in Section 5 
below) 

•Other 4' code byte (See "Fourth 
Code Byte - Other 4" in Section 5 
below) 

Content determined by 
variable code byte. 

After variable information 

Symbol slot 

Level 

Count 

BCD length- 1 

BCD 



occurred in a parameter list in a 
PROCEDURE or ENTRY statement. In 
this case, bytes 4 and 5 will 
contain the dictionary reference 
of the corresponding formal pa- 
rameter type 1 entry. In the 
first four cases, bytes 4 and 5 
initially contain the hash chain. 
After the scan of the dictionary 
this slot will be re- used to form 
another chain, e.g., AUTOMATIC or 
STATIC chain 

2-3 Length 

4-5 See above 

6-8 Offset. (See "Format of Variable 
Information" in Section 6 below) 

9-10 DECLARE statement number. If the 
variable has not been explicitly 
declared, this number is zero; 
otherwise, it is the statement 
number assigned to the DECLARE 
statement from which the variable 
was obtained. 

11-16 Six code bytes. These are: 

other 1, variable, other 2, other 
3, other 4, and data. (See "Code 
bytes" in Section 5 below for a 
description of these bytes.) 

17-19 Data information, which is: 

1. with numeric data, the preci- 
sion and scaling, left 
justified 

2. for strings of fixed maximum 
length, the binary version of 
the string length in the two 
leftmost bytes of the data 
information 

3. for strings of adjustable 
length, the text reference of 
a second file statement giving 
the expression for the string 
length 

4. Bit of byte 19 indicates 
that the temporary is used as 
an argument for halfword 
binary temporaries 



With the exception of the 2- byte symbol 
slot, the general format is the same as for 
a structure. 

Dictionary Entries for Data Items 

The format is as follows: 



Byte 
Number 



D escription 

Code byte may be X'OF* , X"1F', 
X^F', X^F', X f 8F', X«9F f , 
X'AF 1 , or X'BF'. The last four 
cases apply when the item 



Note : In the case of a temporary data 
variable for an argument, the first bit of 
byte number 19 is set to 1 by phase GP. It 
is set to by phase IM for temporary argu- 
ments to built-in functions and pseudo- 
variables. It is examined by phase QU. 

20-21 Symbol slot, containing either 
zero, or one of the following: 

1. If the SYMBOL and DED bits are 
not on, and the data item has 
a picture, these bytes contain 
the dictionary reference of 
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the picture table entry 

2. If the DED bit j.s on and the 
SYMBOL bit off, this slot 
points at a DED entry. If the 
item has a picture, the DED 
entry will contain the picture 
table address 

3. If the SYMBOL bit is on, the 
slot will point at a SYMBOL 
entry. This again will con- 
tain the picture address, if 
specified 

22 Variable information- The con- 
tents of these bytes are deter- 
mined by the variable code byte. 
(See "Format of Variable Informa- 
tion" in Section 6 below) 

1 byte Level 

1 byte Count 

1 byte BCD length- 1 

BCD 

Major and Minor Structure Entries 

These entries do not include base elements, 
i.e., they do not have any data attributes 
or LABEL. Their format is: 



defined, the offset from the 
start of the major structures 
dope vector or the minor 
structures dope vector. 

2. For major structures, the off- 
set from the start of AUTOMAT- 
IC or STATIC of the address 
slot which will point at the 
structure dope vector 

3. For CONTROLLED structures, 
only that specified for minor 
structures in 1 , above 

4. For structures in STATIC 
EXTERNAL the contents depend 
on the setting of the "dope 
vector required"* bit in the 
"other 3" code byte. If this 
bit is off and the item is a 
major structure, the slot con- 
tains the offset from the 
start of STATIC of the slot 
which will contain the address 
of the first byte of the 
structure. If the dope vector 
bit is on, the slot contains 
the offset from the start of 
STATIC of the address slot 
which will point at the struc- 
ture dope vector. The offset 
slot is not used in either of 
the above cases for minor 
structures 



Byte 
Number 



2-3 
4-5 
6-8 



Description 

Code byte may be X'2E' , X^E 1 , 
X'AE 1 , or X*BE'. The last two 
indicate that there is no BCD 
attached. When the identifier 
occurs in the parameter list of a 
PROCEDURE or ENTRY statement, 
bytes 4-5 contain ^;he dictionary 
reference of the formal parameter 
type 1 entry. In che case of the 
first two code bytes, bytes 4-5 
of the entry initially contain 
the hash chain. This is later 
modified by Phase FT 

Length 

See byte number 1 

These bytes are used by the 
storage allocator; they will fin- 
ally contain one of the following 
offsets: 

1. For structures which are pa- 
rameters, or are dynamically 



9-10 DECLARE number, i.e., the state- 
ment number of the DECLARE state- 
ment which produced the structure 

11-15 Five code bytes. These are: 

other 1, variable, other 2, other 
3, and other 4 

16 Variable information. The con- 
tent is determined by the vari- 
able code byte, and will always 
include the information required 
for structure members. (The for- 
mat is described under "Format of 
Variable Information" in Section 
6 below) 

After variable information: 
1 byte Level 
1 byte Count 
1 byte BCD length-1 

BCD 
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5. CODE BYTES FOR DATA, LABEL, 


AND STRUCTURE DICTIONARY ENTRIES 


The First Code Byte - Other 1 

r — . T . . 


_. . _. — T . . — . 1 



Bit 

No. 



Description 



Set By 



-H 



1 

2 
3 

5 
6 
7 



Symbol or requires load constant if 
label constant 

Defined on 

Mentioned in CHECK list 

Needs DVD 

Last member in structure 

Variable dimensions 

* dimensions 

* string length for data item 

— More labels follow for a label 
constant 

Major Structure - no member of 

the structure has a dimension or 
length attribute which is not * 



Phase EL, FT, or 
NU 

Phase EL 

Phase FO 

Various 

Phases EL or EW 

Phase EL 

Phases EL and FT 

Phases EL and FT 

Phase EG 

Phase EY 



The Second Code Byte - Other 2 



r " 

| Bit 


~T" 


. . T . 


| No. 

j. 

| 


-f 


Description | Set by 

. + . 

Dynamically defined | Phase EL 


1 1 




CONTROLLED major structure with | Phase EY 
varying strings | 


1 2 




NORMAL = 0, ABNORMAL = 1 | Phases EI and FT 


1 3 




Reserved | 


| 4 




Formal Parameter | Phase EI 


1 5 




INTERNAL = 0, EXTERNAL = 1 | Phase EI 


1 ^ 




00 = AUTOMATIC or DEFINED or simple | Phase EL 


| and 




parameter | 


1 7 




01 = STATIC | Phase EL 
11 = CONTROLLED | Phase EL 



-H 



X— 
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The Third Code Byte - Other 3 



r t 

Bit 
No. 



Description 



Set by 



-H 



1 

2 

3 
4 
5 



Needs dope vector 



Needs DED 

Needs no storage for the item 
itself 

Correspondence defined 

Chameleon 

Data Variable UNSAFE 



Sign bit for first offset 



Indication of the state of 
the value in the first offset 

= rubbish 

1 = good value 

As above but for second 
address slot 



Phases EK and EY if variable 
dimension entries, variable 
string length, or in 
CONTROLLED storage; 
Phase NU when item appears 
in an argument list 

Phase NU 

Phase GP 

Phase FV 

Phase GP 

Set by phase KE 

1= UNSAFE 

0= SAFE 

This use is local to the 

K phases 

Phase PH for STATIC and 
Phase PT for AUTOMATIC 

Phase PH for STATIC and 
Phase PT for AUTOMATIC 



Phase PH 
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The Fourth Code Byte - Other 4 



r 


— "1 

Bit 
No. 


Description 
I 4 


r — _. .. — . . .. 

Set by 

I 





r 1 
Usage Ci) : 

An explicit alignment declaration has 
been made 
Usage Cii) : 

A constant has been produced for this 
structure or array 


r 

Phase EL (for EW) 

Phase JK 




1 
and 

2 


00 = Not temporary 

01 = Temporary type 2 

i 10 = Temporary not sold 
11 = COBOL temporary 


Phase GP, HF r HK, 
IM, or LB 




3 




Phase FV 




4 


Packed = Aligned = 1 


Phase EL 




5 


Major structure 


Phase EL 




6 


No dope vector initialization 


Phase GP 




7 


A temporary type 2 which has been in- 
corporated in workspace 1 or RDV 
required* For COBOL temporaries this 
bit means RDV required 


Phase OB 



L „___ A__ __„_ .. .„_ .__. .____«„_. 



-„_„_. . _„__„„_ J 



Variable Byte 



r - — . . T . 

Bit 
No. 



Description 




1 
2 

3 



Second address slot 

Dimensioned 

Member of structure 

Value list for label variables or 
POS for defined items 

Initial value if not a structure 

or LIKE if a structure 

EXTERNAL slot 

Defined slot 

CONTROLLED from ALLOCATE statement 



H 



Note ; For a detailed explanation of the 
significance of these bits and a 
description of the extra slots asso- 
ciated with them, see "Format of Vari 
able In formation •* in this section. 
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Data Byte 



T 

I 

I 

Cad. j Binary 
Numeric j Decimal 
Field I 



BIT 

CAD or 

NUMERIC 

FIELD 



h 



| 1 

I 

1 | POINTER/ 
j OFFSET * 
I 

-+- 



+- 



Sterling 

NON 

STERLING 



Long 

Short/ 

OFFSET 






Float 
Fixed 



Complex 
Real 



1 




STRINGS 



h 



| Adjustable 
j Length 
j String 



Aligned 
Unaligned 



Varying 



No | Char 
Picture | 
Picture | Bit 

_. .x « 



AREA 
VARI- 
ABLE* 



Not 
Used 



*AREA, POINTER, and OFFSET data byte settings are: 
AREA: X' 02" superimposed on the non-pictured CHAR string data byte entry 
POINTER: X , 40 t superimposed on the FIXED BIN data byte entry 
OFFSET: X'SO' superimposed on the FIXED BIN data byte entry 

Note : The LONG bit X'lO* is set to 1 for half word binary and for fullword binary 



FORMAT OF VARIABLE INFORMATION 



Data items, labels, 
pointers to various 
certain attributes? 
are dimensioned or 
Space will be left 
the attribute is pr 
addressing problem 
tion of the informa 
of other attributes 



and structures require 
tables if they have 
for example, if they 
defined on a base, 
for information only if 
esent. This leads to an 
of how to find the posi- 
tion when the presence 
alter its address. 



The problem is resolved by collecting, 
into one byte, all the attributes which 
require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute byt€is. The pres- 
ence of a bit in this byte indicates the 
presence of further information. The off- 
set of this information from the start of 
the variable information is given by the 
presence of the bits to the left of the one 
of interest. Each bit will have a value 
associated with it. The sum of the values 
of the bits present and to the left of the 
one of interest will give thc^ value of the 
offset. This is achieved in the coding by 
moving the code byte, masking off the bits 
to the right of the one being tested and 
the bit itself, and translating the byte. 

The information produced by the presence 
of the following bits in the variable byte 
is as follows : 



|Y| implies that a second offset 
l~J slot will be given, 

|N| that it will not. 



Bit number 1 : The dimensioned bit. The 
slot produced by this is three bytes long. 
The first byte will contain the number of 
dimensions, the next two the dictionary 
reference of the dimension (multiplier) 
table. 



Bit number 2 : Member of a structure bit, 
This slot is ten bytes long and has the 
following format: 



Byte 
Number 



3-4 



5-6 



Description 

Declared level number 



True level number 



Dictionary reference of 
the containing structure 

Dictionary reference of 
the next member in the 
structure 



Bit number : The second offset slot is 4 
bytes long. The contents of this slot are 
described in this appendix. The decision 
to include a second offset slot in a dic- 
tionary entry is based on questions about 
the nature of the identifier. Refer to 
Figure 12. 



7 Alignment 

8-10 Element length 



Bit number 3 : POS for defined items. The 
two-byte slot will contain the POS value as 
a binary integer. 
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Entry 


T 

1 

V 


Is it 

item? 


data 




T 

|N 

V 


Is it 
ture? 


striae- 



_ T _ 
YV 



| Is it label 
->j variable? 

I __ T 

_-_ J Y 



|N r - n 
K->|N| 



|Y 

Is it static? [- — 



| Is it ex- 



ternal? 



N| <. — — J N 

V 



|Y r-i 

Is it string? |- — >|YJ 

____J L_J 

IN 
V 



Is it struc- |Y f—\ 
ture member? j- — >|Y| 

V 



|Y r--, 
Is it defined?!- — >|Y| 



_ T __ 
|N 
V 



Is it dimen- [Y r — ( 
sioned? j.__>|y| 

"In 

V 

r~i 

INI 

L_J 



L_J 



Is it formal |Y j Is it struc- |N r - j 

parameter? |— — ■ ->i ture member? j- — ->|N| 

.—._— T J ^ L T _ 

IN | |Y 

V | V 

„__—_ — _., | ^ 

Is it con- |Y | JYJ 

h J t-J 

trolled? j 

___ T ..j 

IN 

V 



, Y r - 1 

h-->m 

1 L^J 



Bit number 4 : The initial value or LIKE 
bit is a four- byte slot. 



For normal initial value. The first 
two bytes contain the dictionary 
reference of the associated "Initial 
Value* dictionary entry . The fourth 
byte contains X'FO 1 



For INITIAL CALL. The first three 
bytes contain the text reference of a 
second file statement. The fourth 

byte contains X'OF'. 



For initial labels. The first three 
bytes contain the text reference of a 
set of second file statements. The 
fourth byte contains X"FF f . If there 
is an initial slot but no initial 
values the fourth byte contains X'OO' 



4. For LIKE. The first two bytes contain 
the LIKE chain* The third and fourth 
bytes contain the dictionary reference 
of the likened structure 



Bit number 5 : The EXTERNAL bit. This 2- 
byte slot contains the ESD number. 



Bit number 6 ; 



The DEFINED bit- This 7- 



byte slot contains the following: 



Byte 

Number 

1-2 



3-4 

5-7 



Description 
Defined chain. 

Dictionary reference of base 

The text reference of a second 
file statement. After the dic- 
tionary these bytes will contain 
X'FFFFFF* if the base is 
unsubs cr ipted . 



Figure 12. Decision to Include a Second 
Offset Slot 



Bit number 7 : The CONTROLLED from ALLOCATE 
bit. This bit is on for dictionary entries 
for level 1 CONTROLLED data specified in 
ALLOCATE statements. The two- byte slot 
contains the dictionary reference of the 
dictionary entry for the data constructed 
from the DECLARE statement. 



Uses of the OFFSET1 and OFFSET2 Slots in 
Data y Label f and Structure Dictionary 
Entries 

The OFFSET1 slot is in bytes 6-8 of the 
dictionary entry and the OFFSET2 slot is 
part of the variable information. 
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STATIC INTERNAL Structures 



Non-Structured Arrays in STATIC INTERNAL 



Ma lor and minor structure entries : OFF- 
SET1 slot not used. OFFSET 2 slot con™ 
tains offset of structure dope vector 
from start of STATIC INTERKAL control 
section Cif there is a dope vector) 

Basic elements ; OFFSET1 slot contains 
offset of virtual origin Cin the case of 
dimensioned items) or offset of item 
(when not dimensioned) fron start of 
STATIC INTERNAL control section. OFFSET2 
slot contains offset of dope vector Cif 
there is one) from start of STATIC 
INTERNAL control section 

AUTOMATIC Structures 



0FFSET1 slot contains offset of vertical 
origin of the array relative to start of 
data region. OFFSET2 slot contains offset 

of dope vector (if there is one) from the 

start of the data region. 



Non-Structured Arrays in AUTOMATIC 

Constant dimensions ; as for STATIC 
INTERNAL 

Adjustable dimensions ; OFFSET1 slot not 
used. OFFSET2 slot contains offset of 
dope vector from start of data region. 



Constant dimensions : as fcr STATIC 
INTERNAL except that all offsets are 
relative to start of DSA. 

Adjustable dimensions : major and minor 
structure entries: OFFSET1 slot not 
used. OFFSET2 slot contains offset of 
structure dope vector from start of DSA 
(if there is a dope vector) 

Basic elements : 0FFSET1 slot not used. 
OFFSET2 slot contains offset of element's 
dope vector (if there is one) from the 
start of the DSA 

STATIC EXTERNAL and Parameter Structures 

Major structure entry : OFFSET 1 slot con- 
tains offset of address slot from start 
of data region. OFFSET2 slot contains 
size of EXTERNAL control section. (Off- 
set of major structure dope vector = 0.) 



Minor structure entries; 



CFFSET1 slot 



not used. OFFSET2 slot contains offset 
of structure's dope vector from start of 
major structure dope vector. 

Basic elements : OFFSET1 slot not used. 
OFFSET2 slot contains offset of element's 
dope vector from the start of the EXTERN- 
AL control section 

CONTROLLED Structures 

Major and minor structures : OFFSET1 slot 
not used. OFFSET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In the 
case of the major structure, this value 
will be zero.) 



Basic elements: 



OFFSET1 slot not used. 



OFFSET2 slot contains offset of element's 
dope vector relative to address in 
pseudo-register - 



STATIC EXTERNAL, CONTROLLED or Parameter 
Array 

OFFSET1 slot contains offset of address 
slot which contains a pointer to the arrays 
dope vector. (Not used in the case of CON- 
TROLLED.) OFFSET2 slot is not present. 

Non- Structured Scalar Strings in STATIC 
INTERNAL 

OFFSET! slot contains offset of datum from 
start of data region. OFFSET2 slot con- 
tains offset of dope vector (if there is 

one) from start of data region. 

Non-Structured Scalar Strings in AUTOMATIC 

Constant length : as for STATIC INTERNAL 

Adjustable length : OFFSET1 slot not 
used, OFFSET2 slot contains offset of 
dope vector from start of data region. 

Non-Structured Scalar Strings in STATIC 
EXTERNAL, CONTROLLED or Parameter 

OFFSET1 slot contains offset of address 
slot which points to string dope vector 
(not used in the case of CONTROLLED) • OFF- 
SET2 slot not present. 

Non-Structured Non-String Scalars in 
AUTOMATIC or STATIC INTERNAL 

OFFSKF1 slot contains offset of datum from 
start of data region- OFFSET2 slot not 

present . 

Non- Structured Non-String Scalars in STATIC 
EXTERNAL, CONTROLLED or Parameter 

OFFSET1 slot contains offset of address 
slot which points to datum (not used in the 
case of CONTROLLED). OFFSET2 slot not 

present. 
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7. OTHER DICTIONARY ENTRIES 

Label Constants - Extracted by the Read- In 
Phase 



Byte 

Number 

1 

2-3 

4-5 

6-8 

9-10 



11 

12-14 
15-16 

17 
18 



Description 
Code byte X«0O' 

Length up to BCD length- 1 byte 

Hash chain - STATIC chain 

Offset 

Statement number (except when the 
label is mentioned in an ON CHECK 
list, in which case it gives the 
chain to the label BCD dictionary 
entry f code byte X'CE') 

Other 1 Code Byte (See "First 
Code Byte - Other 1" in Section 5 
above) 

Second Offset Slot 

Spare for Final Assembly 

Level 

Count 



19 Count of Containing Block 

20 BCD Length-1 

21 etc. BCD 

Compiler Labels 

The format is identical to that of a label 
constant, except for the omission of the 
BCD. The code byte is X'CB 1 . 

Formal parameter type 1 entry 

These entries are derived from the PROCE- 
DURE and ENTRY statements, and do not con- 
tain any information other than that the 
identifier is a formal parameter. The for- 
mat is as follows: 



Byte 
Number 

1 

2-3 
4-5 
6-7 



Description 
Code byte X^O 1 

Length 

Hash chain 

These bytes will point to a full 
description of the identifier 
after Phase EK, or Phase FA f or 
Phase FE. These full descrip- 
tions are dictionary entries for 
the type of item they are 



describing. They do not contain 
the BCD of the identifier, but in 
the slot for the hash chain there 
is the dictionary reference of 
the corresponding formal parame- 
ter type 1 entry. 

Level 

Count 



10 BCD length-1 

11 BCD 

For a description of the types of entry 
pointed to, see "Dictionary entry for pa- 
rameter descriptions." 

Dictionary entry for FILE 

For attributes specified in OPEN statement 
the format is as follows: 

Byte 

Number Description 

I Code byte X'98' 

2-3 Length 

4-5 STATIC chain 

6-8 OFFSET1 

9-10 DECLARE statement number 

II String of second level 
onwards markers (without preceding , C8* 

code bytes) one for each attri- 
bute other than FILE, TITLE and 
IDENT. 

This entry is created by the read-in 
phase and is referred to only as the argu- 
ment of an ATTRIBUTES marker. 

FILE Constants 

Code X 9 08* is used for file constant 
entries, which have the following format: 



Byte 

Number 

1 

2-3 

4-5 



6-8 



9-10 



Description 
Code byte X'OS* 

Length 

Hash chain, subsequently EXTERNAL 
or STATIC chain depending on 
whether FILE is EXTERNAL or 
INTERNAL 

OFFSET1 (STATIC or transfer vec- 
tor offset) 

Declare statement number 
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11-12 Dictionary reference of attri- 
butes entry (zero if none) 

13 Code byte (similar to the "other 
2" code byte. Only internal/ 
external bit used) 

14-15 Dictionary reference of environ- 
ment string (zero if none) 



16 


Level 


17 


Count 


18 


BCD length- 1 


19 


BCD 


onward 




FILE Parameters and Temporaries 



Code X' 89* is used for file parameters and 
for file temporaries. The format of the 
entry will be the same as that for label 
variables . 



FILE Environment Entries 

Code X'CS' is used for the environment 
string. 



Byte 

Number 

1 

2-3 

4 
onwards 



Description 
Code byte X'CS' 

Length 

Internally coded form of 
argument of ENVIRONMENT option 



Code X'CS* is also used for attributes 
collected from the DECLARE statement. 



Byte 

Number 

1 

2-3 

4 
onwards 



Description 
Code byte X'CS' 

Length 

String of second level 
markers (without preceding code 
bytes X*C8'), one for each attri- 
bute other than FILE, ENVIRON- 
MENT, EXTERNAL, or INTERNAL 



Dictionary Entries from Constants 
The format is: 



9 

10 
11 

12 



13-14 



15 



Notes : 



DATA byte 

Data Precision* 

Scale Factor* 

♦These are the apparent precision 
and factor derived from the BCD 
of the constant (see Note 2) 

Type (see Note 1) 

DATA byte (2) 

Data Precision (2)** 

Scale Factor (2)** 

**These bytes are inserted by the 
phase requesting conversion. If 
a picture is required, these 
bytes are used to contain a pic- 
ture table reference (see Note 3) 

Dictionary reference - used when 
a phase requires a constant to be 
converted into a specific loca- 
tion in storage 

BCD 



Byte 

Number 

1 

2-3 

4-5 



Description 
Code byte X^S" 

Length 

Hash chain 



The type byte has the following 
meaning: 

rirbi: and second bits: 

00 - normal BCD constant. The first 
offset slot must be relocated by 
the storage allocation phase, to 
contain the offset of the con- 
verted constant from the start of 
STATIC storage, rather than from 
the start of the constants pool 

11 - the BCD is replaced by the 

internal form of the constant. 
The first offset slot is treated 
in the same way as for the code 
00 

10 or 01 - the constant is required to 
be converted into a specif- 
ic location in storage. 
The second code implies the 
converted constant should 
be made negative before 
being stored 

Sixth bit: 1 indicates that the con- 
stant requires a DED. 

Seventh bit: 1 indicates that the 
constant requires a dope vector. 

Eighth bit: 1 indicates that no conv- 
ersion is required. 
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After the constants processor the 
bytes 6 through 8 will contain the 
offset of the constant from the start 
of the pool of constants. If a dope 
vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant* 



3. Should a DED be required, this will be 
constructed by Phase PL. The two 
bytes i precis ion C 2) and scale factor ( 
2), will contain a dictionary 
reference of a DED dictionary entry. 
If the constant requires a dope vector 
then Phase OS will make a dictionary 
entry for it f and the dictionary 
reference preceding the BCD will be 
the dictionary reference of this. 



Second Code Byte 

The second code byte contains the following 
informations 



Byte 

Number 



1 

2 

3 

4 



Description 

May be passed as an argument 

May have an array as an argument 

Must have an array as an argument 

Is a pseu do- variable 

Indicates to which of the two 
tables the offset refers 

May have an array Cor structure) 
as an argument, but will return a 
scalar result 



Task Identifiers and EVENT Data 

The format of the dictionary entries for 
task identifiers and EVENT data is, apart 
from the initial code byte # the same as 
that for a label variable. 



Internal Library Functions 

Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 



Dictionary Entries for Built-in Functions 

The format is : 



Byte 

Number 

1 

2-3 

4-5 

6-8 
9-10 



Description 
Code byte X l 04 i 

Length 

Hash chain - later becomes the 
STATIC chain 

Offset - gives the position in 
STATIC storage of the load con- 
stant for Library routine 

Code bytes - the first code byte 
contains a value which identifies 
the built-in function and also 
provides information about it. 
It is used mainly by phases IM 
and MD-MM inclusive* The second 
code byte contains further infor- 
mation about the built-in func- 
tion (See "Second Code Byte* w > 



11-12 


DECLARE Stat 


13 


Level 


14 


Count 


15 


BCD length- 1 


16 


BCD 



Byte 
Number 

1 

2-3 
4-5 
6-8 



10 



11-12 



13 



14 



Descrip tio n 
Code byte X'C2 i 

Length 

Hash chain 

Offset 

Library Code - identifies the 
particular Library routine 
required 

Not used 

Code Bytes - the first code byte 
contains a value used by phase MG 
to pick up complete information 
about the library function* The 
second code byte contains further 
information about the function 

Level 

Count 



BCD Entries 

BCD entries are used when the LIKE or 
DEFINED attributes are used. A short dic- 
tionary entry with the format given below 
is used. This is pointed at by the dic- 
tionary entry with the attribute. 



Byte 
Number 



Descc ipti on 
Code byte X' 40 ■ 
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2-3 Length 

4 BCD length- 1 

5 BCD 

Dictionary Entry for Parameter Descriptions 

Dictionary entries for parameter descrip- 
tions are identical with the normal entry 
for data variable, label variable, struc- 
ture, file, or entry points, except for the 
following details: 

Hash chain contains pointer to formal 
parameter type 1. After Phase FT this 
pointer is moved to the bytes contain- 
ing level and count 

No BCD is present 

No block identification is present for 
ENTRY or FILE 

The code byte for an entry point - 

referred to as entry type 6 - is X s 86' 

ON Statements 

Entries for ON statements are made by Phase 
F0 f and contain the following: 



Byte 

Number 

1 

2-3 

4-5 
6-8 
9 

10 
11 

12 

13 
onwards 



Description 
Code byte X'CD' 

Length 

AUTOMATIC chain 

Offset 

Code byte as supplied by the 
Read- In Phase 

Block level 

Block count 

n 

n dictionary references of 
variables or ON condition entries 



ON Condition 



This entry is made by Phase FO: 



Byte 

Number 

1 

2-3 

4-5 



Description 
Code byte X'^D" 

Length 

Hash chain later used as AUTOMAT- 
IC chain 



6-8 
9 

10 
11 

12 

13 
onwards 



Offset 

Code byte as supplied by the read 

in phase 

Block level 
Block count 
BCD length-1 
BCD 



CHECK List Entry 

This entry is made by Phase FO: 



Byte 
Number 

1 

2-3 
4 



Desc ription 
Code byte X M CB § 

Length 

n where n is the number of dic- 
tionary references following 

5 Dictionary references C 2n 

onwards bytes) 

PICTURE Entry 

The format of an entry in the picture table 
in the dictionary. 



Byte 

Number 

1 

2-3 
6-8 



10 



11 



12 



Description 
Code byte X'CS' 

Length = L+13 

Contains address of next entry in 
picture chain 

Usage (1) (Before Phase FQ) 
Dictionary reference of 
associated declare or format 
statement, right adjusted 

Usage (11) 

Offset in STATIC storage 

Code Byte (after Phase FQ) (See 
Code Byte description) 

P - the number of digit positions 
in field in numeric picture - 

Q - the number of digit positions 
after V character in numeric pic- 
ture. Code X^O* represents 0, 
X'7F' represents -1, and X^l' 
represents +1. 

w - apparent length of picture. 
- length of picture following. 
(For a non-numeric picture the 
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length is obtained in bytes 
12-13.) 



14 

onwards 


Picture. 


Byte 9 - 


Code Byte 


Bit 

Number 




Description 

string 

1 numeric 


1 


correct 




1 error 


2 


not sterling 

1 sterling 


3 


short 

1 long 


4 


Not used 


5 


decimal 

1 binary 


6 


fixed 

1 floating 



7 Not used 

Dictionary Entry for Workspace Requirement 

The format for a dictionary entry for work- 
space requirement is : 

Byte 

Number Description 

1 Code byte X'CS* or X'CA' 

2-3 Length = 8 

4-5 Total workspace required 

6-8 Offset 

If the code byte is C8 this is the tem- 
porary workspace used by pseudo-code (tem- 
porary type 1). 

Dictionary Entry for Parameter Lists 

Dictionary entries for parameter lists have 
the following format : 



Byte 

Number 

1 


Description 
Code byte X'C5' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


STATIC offset 



11 

onwards 


Contains DCA*s 


Dictionary Entries for Dope Vector 


Skeletons 




Byte 

Number 

1 


Description 
Code byte X , C6' 


2-3 


Length 


4-5 


STATIC chain 


6-8 


Offset in STATIC 



9-10 Dictionary reference or DECLARE 
number 

11 Bit pattern of skeleton dope 
onwards vector 

This entry is constructed by Phase PD 



Symbol Table Entry 

Symbol table entries are made by Phase PL, 

Byte 

Number Description 

1 Code byte X'Cl' 

2-3 Length 

4-5 STATIC chain 

6-8 Offset in STATIC of DED 

9-11 Actual DED if not pictured. If a 
picture is involved, the last two 
bytes are the dictionary 
reference of the picture table 
entry 

12-13 Offset in STATIC storage of sym- 
bol table entry 

14-15 Dictionary reference of next item 
in the symbol table for this 
block 

16-17 Dictionary reference of item 

requiring entry in symbol table 

Dictionary Entry for AUTOMATIC Chain 
Delimiter 

An entry for AUTOMATIC chain delimiter is 
made by Phase PP. 

Byte 

Number Description 

1 Code byte X'CC 



9-10 



Assembled length 



2-3 



Length 
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4-5 
6-7 

8-9 



AUTOMATIC chain 

Pointer to first second file 
entry 

Pointer to second second 
file entry 



PEP Dictionary Entry 

An entry for a DED is created by Phase PL. 

Byte 

Number Description 

1 Code byte X f C7 f 

2-3 Length 

4-5 STATIC or AUTOMATIC chain 

6-8 Offset 

9-10 Dictionary reference of variable 

11-18 Eight bytes of RDV text 

19-20 DECLARE number 

The LONG bit X'10' of byte 9 is set to 1 
for halfword binary and for fullword 
binary. 

If the PEP requires a picture, the last 
two bytes contain the dictionary reference 
of the picture table entry. 

This entry has the same format as the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
symbol slot in an item. 

PEP2 Entries 

These entries are generated when a DED is 
required for the conversion of a temporary 
result. 

Byte 

Number Description 

1 Code byte X'Cl" 

2-3 Length = 11 

4-5 STATIC chain 

6-8 Offset 

9-11 Actual DED 

Dictionary Entry for FED - Format Element 
Descriptor 

The entry for a FED is made by Phase NV. 

The entry is identical with a DED2 entry 
but with a length of 12 f instead of 11. 
The storage allocated will fce word-aligned. 



Byte 

Number Description 

1 Code byte X'Cl 1 

2-3 Length =12 

4-5 STATIC chain 

6-8 STATIC offset 

9-12 Actual FED 

Label BCD Entries 

Label BCD entries are made by Phase FO. 

Byte 

Number Description 

1 Code byte X^E 1 



2-3 
4™ 5 
6-7 

8-9 



Length 

DECLARE number 

Offset of the BCD 
in STATIC 

Dictionary reference of item 
requiring BCD 



These entries are constructed when a 
statement label or a PROCEDURE or ENTRY 
label is mentioned in an ON CHECK list. 
These entries are also made for EVENT and 
TASK variables. Phase PD will allocate 
storage in STATIC for the BCD of the label, 
and place the offset of this in the above 
entry. 

Dope Vector Entries for Temporaries 

This entry is constructed to indicate that 
a dope vector is required for a temporary 
result . At this stage the bytes in the 
entry contain the following: 

Byte 

Number Description 

1 Code byte X«C0 f 

2-3 Length 

4-5 AUTOMATIC chain 

6-8 Offset in the temporary type 
1 stack. After Phase QJ 
this will contain the offset 
from the start of the DSA 

9-10 Dictionary reference of dope 
vector skeleton entry 

11-12 Length of string 

Record Dope Vector Entry 

This entry is constructed when a variable 
requires a record dope vector. 
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Byte 

Number 

1 


Description 
Code byte X , C29 i 


2-3 


Length 


4-5 


STATIC or AUTOMATIC chain 


6-8 


Offset 


9-10 


Dictionary reference of 
variable 


11-18 


Eight bytes of RDV text 


19-20 


DECLARE number 


Dope Vector Descriptor Entry 



This entry is constructed for a structure 
which requires a dope vector descriptor. 



13... 



DVD text set up by Phase JK 



Format of a Second File Dictionary Entry 



Byte 

Number Description 

1 Code byte X'C8 f 

2-3 Length of entry 

4-5 Statement number of the DECLARE 

or other statement giving rise to 
the second file statement 

6-7 Dictionary reference of the entry 
tyP e 1 of the block from which 
the second file statement was 
extracted 

8-9 Dictionary reference of a three- 
byte slot in the dictionary. 

10 Type of second file statement, 
i.e., the function it performs. 
This is the second byte of the 
dictionary reference used to 
designate the function in the 
actual second file statement 



Dictionary Entry for a STATIC PSA 

This entry is made by phase PA (whenever a 
block has its DSA in STATIC). The "size of 
DSA* slot (right-hand two bytes) in the 
Entry Type 1 is used to contain the dic- 
tionary reference in this entry. 



Byte 

Number 

1 

2-3 

4-5 

6-7 
8-10 



Byte 

Number 

1 


Description 
Code byte X'CC 








11-12 


2-3 
4-5 


Length 
STATIC chain 








13 


6-8 


Offset 








14-16 


9-10 
11-12 


Dictionary reference of structure 

Chain to RDV entry or DECLARE 
number 


17-18 
19-20 



Description 
Code byte X'CS' 

Length =20 

Dictionary reference of the next 
STATIC DSA entry, or zero if this 
is the last entry. 

Offset address slot in STATIC for 
the DSA (set by phase PD) . 

Size of DSA (set by PT and 
amended by RF) . 

Dictionary reference of the Entry 
Type 1 of the block. 

Code byte to be put into first 
byte of DSA. 

Offset of start of DSA in STATIC 
(set by phase TO). 

Head of block's automatic chain. 

Not used 



Dictionary Entry for an Error Message 



Byte 
Number 

1 

2-3 
4-5 
6-7 
8 



Description 
Code byte X'CS' 

Length 

Chain 

Messages number 

Flags: 

Bit on if text to be inserted 
in message 

1 on if statement number to 
be inserted 

2 on if a numeric parameter 
to be inserted 

3 on if a dictionary 
reference to be inserted 

4-7 Severity; X'O' 

Termination 

X^' Severe 
x . 8 , Error 

X'C Warning 
Variable information in the for- 
mat shown below : 
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2 bytes Statement number (if 

present) 
2 bytes Numeric parameter (if 

present) 
2 bytes Dictionary reference 

(if present) 



8. 



DIMENSION TABLE 



Each entry containing dimension information 
will result in a table being set up. This 
table is shown in Figure 13. 



If text is to be inserted it is con- 
tained in a second dictionary entry immedi- 
ately following the main entry for the mes- 
sage. The format of this second entry is: 



Byte 
Number 



2-3 
4 



Description 
Code byte X"C8' 



Length 

Flag: X^O* Text that follows 

has not been truncated and is 

10 bytes or less 
X f 01" Text that follows is not to 

be truncated and is greater 

than 10 bytes 
X f FF f Text that follows has been 

truncated and is to be printed 

within quotes. 

Variable length of text (in com- 
piler internal code) • 



9, DICTIONARY ENTRIES FOR INITIAL VALUES 

The declaration of a variable with an INI- 
TIAL attribute produces these entries: 



An INITIAL dictionary entry 



and 



One or more dictionary entries for 
constants 



and perhaps 



A second File Statement for any iteration 
expression contained in the INITIAL 
specification. 



Code Byte CB 



Two- byte length 



Zero byte 



"T- • — " 

I 

(No. of dimensions (n) 1 

-J.. . - - JL- 



VIRTUAL ORIGIN WORD 



| „„_„_.„_ T .„„_. 

| One- byte mairker | Not used 

j. + 

| One-byte marker | Not used 

h . _. . + . „„ 



h 
n multipliers [ 



I 



| Flag Byte | 

__ .„.± .__. — i 

Two-byte chain address | 

1 

I 

t 

I 

. .„< 

I 
_. — _4 

— — -H 
I 

-— — H 



j Lower bound (half word) 

_+„__ __ 

1 Upper bound (half word) 



| nth upper bound 

-JL— „_ ,_. ._ 



Note : The one-byte marker is: 

00 if bound is fixed point constant; bound is a two-byte binary constant, 
right-adjusted. 

FF if bound is an expression; bound is a three-byte pointer to a second file state- 
ment in text. 

7F if the bound is inherited and has an MTF function - 

3F if the bound is inherited and is covered by a previous MTF function. 

FO if the bound is specified by an *. 

L .. . _. . . ._ „_. . _. _„.____ .. . . . 

Figure 13. Dimension Table 
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The INITIAL dictionary entry contains 
pointers to the constant entries and any 
Second File Statements, and is of the fol- 
lowing format: 

Byte 

Number Description 

1 Code byte X'CS* 

2-3 Length of entry 

4 Prefix options byte 

5 INITIAL code byte X , 79* 

6 Left parenthesis 

7 INITIAL value list (see 
onwards below) 

Final Right parenthesis 

INITIAL Value List 

The INITIAL value list contains references 
to Second File Statements and dictionary 
entries which are created to correspond to 
the value in the input text. 

The list contains the following code 
bytes to identify each associated dic- 
tionary reference: 

X'Fl f Constant iteration factor. This is 
followed by X f 00 f and the dictionary 
reference of the constant iteration 
factor. 

X«F3' INITIAL value item. This is fol- 
lowed by X'OO' and the dictionary 
reference of the constant. (The BCD 
of the constant is expanded by any 
imposed string replication factor) . 

X'F5 f EOB marker. This is followed by 

X , 00 i and the dictionary reference 
of the next entry on the chain. 
(This will occur when the scratch 
core storage allocated for building 



the entry is not sufficient, and a 
chain of entries is constructed) . 

X'F7 f Variable iteration factor. This is 
followed by the text reference of 
the Second File Statement containing 
the expression. 



INTERNAL FORMATS OF TEXT 

The following is a description of the 
internal formats of text at various points 
during the compilation of a source program. 
It is organized in this manner: 

1. Text Code Bytes after the Read- In 
Phase 

2. Text Formats after the Read-In Phase 

3. Text Code Bytes on Entry to the Trans- 
lator Phases 

4. Format of Triples 

5. Text Code Bytes in Pseudo-Code 

6. Text Formats in Pseudo-Code 

7. Text Formats in Absolute Code 

8. Second File Statements, and the For- 
mats of Compiler Functions and 
Pseudo-Variables 

9. Pseudo-Code Phase Temporary Result 
Descriptors (TMPDs) 

10. Library Calling Sequences 

11. Descriptions of Terms and Abbrevia- 
tions used in Text During a 
Compilation 

Note : The internal formats of text during 
compile-time processing are described in 
Appendix F. 
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1. TEXT CODE BYTE AFTER THE READ- IN PHASE 



First Level Table (00 to 7F) 



12 3 4 5 

f T T r _ „ r . T — . . — T . 

| | a | # J $ | BLANK J | 

1! 1 | A | J | | f I { 



h 



-+- 



DO 
EQUALS 



} 



2 
3 

5 
6 
7 

8 
9 
A 

B 
C 
D 






+ 

C 
+ 

D 

i + 

+ + 



4 

5 

6 
|. - -) + 



F 
G 



K 
+ 

L 
+ 

M 
f 

N 

+ 

O 
+ 

P 






- — > 












~ + 



ASSIGN 



MULTIPLE 
ASSIGN 



<= T> 



>= 

1< 



+ 

+" 



c • 

+ I 



-H 
-—- 1 
-H 

— ^ 

— ^ 

+ 

— H 

I 
j 



^ + — + — + + 



j. + — + — + + - 

PSEUDO- 
VARIABLE 



II 
% 



+ + 



REFER 

i 

* 



— +— 
— +- 



I + + + 

FUNCTION 
|. + + + + __ 

I + + + +- 

SUBSCRIPT I 



+ + 

+ + 



+ 



PREFIX 
PREFIX 



I + + + +" 

* I III I 

I X X X x_ 



LITERAL 

CONSTANT 

+ + 



A. 



~\ 

I ** 

-X 



| <-Digits-> | <- 



-Letters >| < Opera tor s- 



->l 
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First Level Table (80 to FF) 



1 
2 
3 

5 
6 
7 

8 
9 

A 
B 

C 

D 

E 
F 



r — - — — 


~T — — 


_ T _. . 


— T ^. 

(HYBRID 


~T— 


— » 1 ,__ — __ 


" — -~T" 






__. 1 


|TO 


(LINE 


| A 


IQUAL 
1 


-{ 


(SN 

| ASSIGN 


BY | 




|FL DEC 


IMAG | 






I ALLOCATE | 


ICALL 


| ENTRY 


-j— — 


(NAME 


_j— 




|FL DEC 


REAL | 


(. , 


_.|._ 


. 1 


|BY 

V —~ 

(FREE 

H- — — 

[WHILE 
V _„ 

(SNAP 

I™ 


X 


|B 

I RETURN 
|P 


I 

IPROC 

(CHECK 

(BEGIN 

I 

IITDO 


(WRITE 


|SL 
|SL' 

|CN 
(GET 
|CL 
|PUT 


|ON I 
(END 




|FL BIN 
| FL BIN 
|FIX DEC 
|FIX DEC 
|FIX BIN 
(FIX BIN 


IMAG | 


>ROC 


REAL | 




IMAG | 


f DISPLAY 1GOOB 
X • 




REAL | 


(COL 

| SIGNAL 


|R 

|GO TO 




IMAG 1 


DO 


REAL | 


|._ — .. 


-- 1~- - ___ 


-^.. — . 


, — J 








(NO 


(2nd LEVEL) 










(SYSTEM 

|. _„ 

f WAIT 


[E 

■-+ 

1 REVERT 

. J. 


-X 


(CHECK 

(DO 
X 


[MARKER 

IREAD 

4- 


I UNLOCK 
4. 


|END 
(END 


ITDO 


| INTEGER 

(STG DEC 

4- 






REAL | 


L 




r 


T 


t 


t 
(DATA 


T 


t 


-f 




T 




(THEN 

I— — 

I DELAY 


|F 


_x 


|LIST DO| 


( REWRITE 


| END 




(ON 




UNIT LABEL! IF 


( LOCATE 


PROG 




J. 


~± „ 


— _. — . J 


| CONTROL I 




I 










(ARRAY 




(VARIABLE) 
1- ' 


| DECLARE 
|X 


(SN2 

(ELSE 
i 


(DELETE 


|OPEN 


+ 

(END 




[CROSS SECTION! 


1EXIT 
I-— — 


[NULL 
|C 


BLOCK (CHAR CONSTANT | 


|NO SNAP] 




| iSUB 




| „ 

[STOP 


f ASSIGN 


"+ 


( FORMAT 


-+ 


_ + 

! CLOSE 


+ 

1 * 


— 


(BIT CONSTANT | 



L X 



X 



-X X . X 



J . . , . 
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Second Level Table COO to 7F) (Preceded by Second Level Marker Byte C8) 

12 3 4 5 6 



"T " 

| FILE 

-+ 

I 

| LIST 



1 

—I 



o 

i 

2 
3 

5 
6 
7 

8 
9 

A 
B 

C 
D 
E 






— +- 

i 



(DECIMAL j OPTIONS (EXTERNAL (AREA 

| BINARY | IRREDUCIBLE | INTERNAL | POINTER 

| FLOAT | REDUCIBLE | AUTOMATIC | EVENT 



H 



JEDIT | EVENTS- 
TITLE | DATA | PRIORITY 
ATTRIBUTES | STRING | REPLY 



~+~ 



(FIXED (RECURSIVE (STATIC (TASK 

| REAL | ABNORMAL 2 j CONTROLLED | CELL 

(COMPLEX (NORMAL 2 (SECONDARY (BASED 



PAGES IZE (SKIP | | 

IDENT (LINE | 

LINES IZE (PAGE | 

(COPY ( 

INTO (KEYTO | 

J. + _„_ + „„ f 

FROM (TASKOP j 

SET | | IN 



\- 

KEY 
|. 

NOLOCK 



(PRECISION 1 (USES 2 
(PRECISION 2 (SETS 2 
(VARYING (ENTRY 
| PICTURE CNUM) (GENERIC 
(BIT ATTRIBUTE (BUILTIN 
(CHAR ATTRIBUTE) 
| DIMS (INTEGERS) | 



| | OFFSET 

I I 

(INITVAR 1 | 

(INITIAL (INITVAR 2 

(LIKE | 

( DEFINED | 

(ALIGNED | 

H 



IGNORE 



h 



! I 

— + — +- 

(KEYFROM j 

-+— — +- 

| FORMAT ( 

| LIST j 



| LABEL | ORDER 

| | REORDER 

| DIMS | 

BY NAME( (NON-INTEGER) (RETURNS 



(UNALIGNED | 

(PACKED 2 | 

| | PICTURE 

(POS I (CHAR) 



H 



s-The EVENT built-in function and pseudo-variable are known externally by the 

equivalent name COMPLETION. 
2 Obsolete attribute. The second level marker is used only to ensure correct 

warning message transmission in Read-In f and does not appear in text at any time. 
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Second Level Table (80 to FF) 



8 



B 



r T . 

BUFFERED | 

UNBUFFERED | 

I 

EXCLUSIVE j 

KEYED | 
STREAM | 
RECORD | 

1 
BACKWARDS | 

SEQUENTIAL | 



T — T 

MAIN 
t— 4 



T „. — — T „ — — 1 

CONVERSION | CONDITION 




1 

2 
3 
4 
5 

6 
7 












H-— 












DIRECT 



— h 

I 

i 



PRINT 



4~ 

ENVIRONMENT! 



REENTRANT 

4 — + 

SECONDARY 

4— 4- 



TASK 

4— -4 






ON-BLOCK 

4 






I 

I STRING- | 
UNDERFLOW (RANGE (NAME 

I 

ZERODIVIDE1 AREA | TRANSMIT 

PENDING | 



— 4— 

| FIXED 

| OVERFLOW 



I 



— 4- 



OVERFLOW 



SUBSCRIPT 
RANGE 



I 

ENDFILE (CHECK 



ON RECORD 1 

! 



ERROR 



END PAGE | 

— — — 4- 



B 
C 
D 



INPUT [ 

OUTPUT i 

UPDATE | 

I 
TRANSIENT j 



-—4 
__ + 



4— 
4— 






4- — - 

FINISH 



KEY 



4— — -4 



| NOCHECK 



+ ._ + _„_ 



SIZE 



F 1 



I 
-X- 



-4- 



»4~~~ — -4 

I 1 

„X . X. 



I 

X. 



I 

-4——— 4- 

UNDEFINED | 
FILE | 

-4 4- 

I 1 

„.X „ X-_ 



2. TEXT FORMATS AFTER THE READ- IN PHASE 

In the following statement formats the code 
bytes SN f SL, SL f , POS # and OB have the 
following meanings : 



SN statement number 



SL statement label 



BIT 



ON CONDITION 



1 o 


OVERFLOW 


1 1 


UNDERFLOW 


1 2 


ZERODIVIDE 


1 3 


FIXEDOVERFLOW 


1 ** 


SUBSCRIPTRANGE 


I 5 


SIZE 


1 6 


CONVERSION 


| 7 


STRING RANGE 



SL - 



initial label 



POS following SN is a 2 -byte statement 
number 

following SL is a 2 -byte dic- 
tionary reference of statement 
label or entry type 1 

OB prefix options byte r specifying ON 
conditions enabled for the state- 
ment as follows 2 



The abbreviation SQUID means an identi- 
fier, possibly subscripted and/or 
qualified. 



PROCEDURE Statement 

The format of a PROCEDURE statement is as 
follows : 
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Byte 

Number 

1 


Description 

Code oyte SN or SL 


2-3 


POS 


4 


OB 


5 


PROCEDURE 


6 


Block level 


7 


Block count 


8-10 


PROCEDURE- BEGIN chain 


11-13 


DECLARE chain 


14-16 


ENTRY chain 


17 


Left parenthesis - optional 


18-.. 


Format parameter list - 



optional 

Right parenthesis - optional 

Attribute marker - optional 

Attribute code - optional 

Attribute list - optional 

Statement terminating 
semicolon 



Attribute List - optional 

Statement terminating 
semicolon 



BEGIN Statement 

The format of a BEGIN statement is as 

follows : 



Byte 

Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


BEGIN 


6 


Block level 


7 


Block count 


8-10 


PROCEDURE- BEGIN chain 


11-13 


DECLARE chain 


14 


Statement terminating 
semicolon 


END Statement 



The format of an END statement is as 

follows : 



ENTRY Statement 

The format of an ENTRY statement is as 
follows: 



Byte 

Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


ENTRY 


6-8 


ENTRY chain 


9 


Block level 


10 


Block count 


11 


Left parenthesis - optional 


12.. - 


Formal parameter list - 



optional 

Right parenthesis - optional 
Attribute marker - optional 
Attribute code - optional 



Byte 

Number 

1 

2-3 

4 



Description 

Code byte SN or SL 

POS 

OB 

END1, END2 f or END3 - END1 ends a 
PROCEDURE or BEGIN block? END2 
ends an iterative DO block? END3 
ends a non- iterative DO block 

Block level for the containing 
block 

Block count for the containing 
block 

Statement terminating semicolon 



IF Statement 

The format of an IF statement is as 

follows: 



Byte 

Number 

1 

2-3 



Description 

Code byte SN or SL 

POS 
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4 


OB 


5 


IF 


6. .. 


Expression 




THEN 




Statement or Group 




ELSE ™ optional 




Statement or Group 




optional 


Note: 


The semicolon precedi; 



been deleted. 



DO Statement 



The format of a DO statement is as follows; 

Byte 

Number Description 



1 


Code byte SI 


2-3 


POS 


4 


OB 


5 


DO or ITDO 


6 


CV 


7 


BKC 


8 • - m 


Squid 




DO equals 




Expression 




TO 




Expression 




BY 




Expression 




WHILE 




Expression 



Statement terminating 
semicolon 

ON Statement 

The ON statement takes one of the following 
formats: 

Byte 

Number Description 

1 Code byte SN or SL 



4 


OB 


5 


ON 


6 


ON Condition 


7 


SNAP or NOSNAP 


8 


Statement or block 




-or- 


Byte 
Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


ON 


6 


ON Condition 


7 


System 


8 


SNAP or NOSNAP 


ASSIGN 


Statement 



The format of the ASSIGN statement is as 
follows: 

Byte 

Number Description 

1 Code byte SN or SL 



2-3 

4 

5 

6a. . 



2-3 



POS 



POS 

OB 

ASSIGN or ASSIGN BY NAME 

Squid 

Comma - optional , 
may be repeated 

Squid - optional, 
may be repeated 

Variable number of bytes - 
optional, may be repeated 

ASSIGN 

Expression 

Statement terminating 
semicolon 



WAIT Statement 

The WAIT statement has the following 
format : 

Byte 

Number Description 

1 Code byte SN or SL 
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2-3 



POS 



GO TO Statement 



4 OB 

5 WAIT 

6 Left parenthesis 
7. . . Identifier 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Comma 

Further optional parentheses 
and expressions 

Right parenthesis 

Left parenthesis - optional 

Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon 



CALL Statement 

The CALL statement has the following 
format: 



The format of the GO TO statement is as 
follows: 



Byte 
Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


CALL 


6-8 


CALL chain 


9 


Identifier 


10 


Left parenthesis 


11 


Expression 


12. . . 


Right parenthesis 




Left parenthesis 




Argument List 




Right parenthesis 




Statement terminating 
semicolon 



Byte 

Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


GO TO 


6 . . • 


Squid 




Statement terminating 
semicolon 


SIGNAL 


and REVERT Statements 



The SIGNAL and REVERT statements have the 
following format: 



Byte 

Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


SIGNAL or REVERT 


6 


ON Condition 


7 


Statement terminating 
semicolon 


DISPLAY 


Statement 



The format of the DISPLAY statement is as 
follows : 



Byte 

Number 

1 


Description 

Code byte SN or SL 




2-3 


POS 




4 


OB 




5 


DISPLAY 




6 


Left parenthesis 




7 ... 


Expression 

Right parenthesis 






Left parenthesis - 


optional 




Squid - optional 






Right parenthesis - 


■ optional 
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Statement terminating 
semicolon 



DELAY Statement 



INITIAL Label DECLARE Statements 

The format of INITIAL label DECLARE state- 
ments is as follows : 



The format of the DELAY statement is as 
follows : 

Byte 

Number Description 



Byte 

Number Description 



1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


DELAY 


6 


Left parenthesis 


7... 


Expression 




Right parenthesis 




Statement terminating 
semicolon 


RETURN 


Statement 



1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


INITIAL Label DECLARE 


6-8 


DECLARE chain 


9... 


INITIAL label 




Statement terminating 
semicolon 


DECLARE 


and ALLOCATE Statements 



The format of the RETURN statement is as 



The format of DECLARE and ALLOCATE state- 
ments is as follows: 

Byte 

Number Description 



follows: 




1 


Code byte SN or SL 


Byte 




2-3 


POS 


Number 


Description 






1 


Code byte SN or SL 


4 


OB 


2-3 


POS 


5 


DECLARE or ALLOCATE 


4 


OB 


6-8 


DECLARE chain or ALLOCATE 
chain 


5 


RETURN 










9... 


Declaration list 


6 


Left parenthesis - optional 







7., 



Expression - optional 

Right parenthesis - optional 

Statement terminating 
semicolon. 



Statement terminating 
semicolon 

FORMAT Statements 

The format of the FORMAT statement is as 
follows : 



STQP f EXIT, and Null Statements 

The format of STOP, EXIT and Null state- 
ments is as follows: 



Byte 

Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


Statement identifier 


6 


Statement terminatin< 



Byte 

Number Description 



1 


Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


FORMAT 


6« • • 


Format list 




Statement terminating 
semicolon 



semicolon 



Format items are replaced by one-byte 
codes . 
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OPEN and CLOSE Statements 

The format of OPEN and CLOSE statements 
follows. 



Byte 

Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


OPEN or CLOSE 


6 • • * 


File group list 




Statement terminating 
semicolon 



READ, WRITE, GET, PUT, REWRITE , UNLOCK, and 
DELETE Statements 

The format of READ, WRITE, GET, PUT, 
REWRITE, UNLOCK, and DELETE statements is 
as follows: 



Byte 

Number 

1 


Description 

Code byte SN or SL 


2-3 


POS 


4 


OB 


5 


Statement identifier 


6. .. 


Option list 
Statement terminating 
s end colon 
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3. TEXT CODE BYTES ON ENTRY TO THE TRANSLATOR PHASES 





1 



7 

8 
9 



B 
C 



J^-- T T T . T . . T __ — __„ T — . — . — T — ____. _ 1 

| t 1 (COMPILER | | | [COMPILER | 
|DICT. REF.JFILE I (FUNCTION | (FILE* | (FUNCTION' | 

| II 1 (COMMA | { |DO EQUALS | } | 

I ( I (COMPILER | | | (COMPILER | 
1 (LIST | (FUNCTION | F COMMA (LIST 1 | (FUNCTION CALL' j 
I 1 I (CALL 1111 1 

| (EDIT (EVENT | | { | EDIT' | | | 

| | | 1 COMPILER |COMPILER| | (COMPILER | 
1 TITLE (DATA (PRIORITY | PSEUDOVAR | FUNCTION j DATA' | | PSEUDOVAR' | 
1 II 1 (COMMA 111 | 
J. + _ + — ^ _ + + — + _. + .| 

(ATTRIBUTES (STRING (REPLY | j ) (STRING 1 | < | + | 

1 11 1 I COMPILER | | | | 
(PAGESIZE (SKIP | (ERROR (ASSIGN | | | NDX ( 

| I (BUY | | (MULTIPLE) | | 
(IDENT (LINE (CHAMELEON | BUY ASSIGN (ASSIGN (ASSIGN 1 1 > 1 < \ / j 

k + + _+ + _ + + _ + _„__ — _ H 

JLINESIZE (PAGE | | ARCO (DROP | TMPD (LEFT (OFS j 

1 (COPY | 1 | | | |LD I t= | * | 

J. . +__ + + -„_ + + + + __ „_, 

1 II 1 (BUYB III 1 
|INTO (KEYTO | (PSEUDOVAR | CALSEQ j TT | (PSEUDOVAR - | 

1 1 1 |EN° till 1 
(FROM (TASK (LIST MARK | LIST MARK | ( |JMP | = (PREFIX - | 


(SET (RPL (IN (FUNCTION |CNVA |RPL f | (FUNCTION" | 
K + „+_„ . + „ + + + „ + __ ^ 

j | j (ARGUMENT | j | | j 
(KEY | j (MARK | € | 1 > (PREFIX + j 

j j (DEFINED (SUBSCRIPT | (LITERAL | DEFINED | j 
(NOLOCK JKEYFROM (SUBSCRIPT 1 [CNVB (CONSTANT | SUBSCRIPT 1 | SUBSCRIPT' | 

| (FORMAT | | j (FORMAT | | ( 
(IGNORE (LIST | | ( -, (LIST' j < | ** | 
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8 



B 




1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 

C 
D 

E 
F 



"T — 
| TO | LINE 1 A 

(ALLOCATE! (CALL | 

| BY | PAGE | B 

| FREE | |RETURN|PROC 

i WHILE | SKIP |P 



I TO 1 



BY' 



| WHILE' 



| DISPLAY | GOOB (BEGIN (SORT 

SNAP | COL |R | [SNAP 1 

(SIGNAL | GOTO | ITDO (WRITE 

SYSTEM |E | | (SYSTEM 1 

WAIT (REVERT | (DO (READ 

THEN |F (G | 

DELAY | | (IF (LOCATED 



|CV 



! 



1 
| SELL (SN2 



ICV 



[EXIT (NULL (BUY (ELSE (DELETE 
(C |X |NDSNAP| 

| STOP (ASSIGN (BUYS (FORMAT) 

L .. X . X . JL- 



D 

*T * " 

|SN 

I 
|SL 

I 

|CN 

(GET 

|CL 

(PUT 

IE* 

(UNLOCK 

|F" 

( REWRITE 

1 
! 

,OPEN 

|C 

(CLOSE 



L . X_. X , X ___ 



I I 

| CALL 1 (EIO 

i I 

| (PROC 

IP' I 

| | BEGIN • 

I I 

(END DO (ITDO' 

| END ITDO | 

(END (DO* 

|G* | 

(END PROG | IF" OR ON 

) (ARRAY 

I (CROSS SECTION | 

| END BLOCK | 

(END PROG 2|NOSNAP i 

| ; | FORMAT 

_ X . X. i 
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4. FORMAT OF TRIPLES 

The triples produced as output from the 
translator phase each consist of five 
bytes, an operator followed by two two-byte 
fields. Each of the two-byte fields may be 
occupied by an operand, which may be a dic- 
tionary reference, a code byte or code 
bytes, or a numeric parameter. Two zero 
bytes in place of a dictionary reference 
operand imply that the operand is the 
result of previous operations, and that its 
type and location are described in a TMPD 
in the text. 

The number of operands and the fields 
which they occupy depend upon the type of 
triple. The following table contains this 
information for all the triples used in the 
compiler. 



r _ — 

(triple type 


~T "T" ~ 

(HEX (FIELD 


T 1 

1 j FIELD 2 j 


(KEYED 
L 


| CODE ( 

-+ + " 

| 03 | 
4- 4- 


1 1 

1 " 1 
4. 4 


[TITLE 
(ATTRIBUTES 


T T 

( 04 | 

-+ +- 

| 05 | 


T 1 

I OPERAND j 

| OPERAND | 


J. 

| PAGES IZE 


-+ + 

| 06 | 


4 1 

| OPERAND | 


J. 

| I DENT 

(LINESIZE 


| 07 | 

-+ 4 

1 08 | 


4 — H 

| OPERAND | 
| OPERAND ( 


J. 

JINTO 


-+ + 

| 0A | 


j _ „._ „. ,... j 


T 1 

( OPERAND j 


I. 

(FROM 

|KEY 

| IGNORE 

| FILE 


-+ +— 

| 0B | 

"+ 4 " 

j 0D | 

-+ + 

I OF | 

-f +— 

| 10 | 


4 ^ 


| OPERAND | 
| OPERAND | 
| OPERAND | 
| OPERAND ( 


L 


4-4- 


4- 4 


(LIST 

(EDIT 
(DATA 


T T 
| 12 | 

-+ + 

| 13 | 

-+ "I 

j 14 j 


T I 

I - I 

I " I 
I " I 


^ 

| STRING 

(SKIP 
U 


-+ + 

| 15 | 

-4 + 

| 16 | 
.4. J. 


+ \ 

| OPERAND | 

| OPERAND | 
4. 4 


r 

J LINE 


T T 

| 17 | 


T 1 

| OPERAND | 


(. __ 

(PAGE 

(COPY 


j 18 | 

-+ + 

| 19 | 


+ J 

I " I 


H 

(KEYTO 


-+ + 

| 1A | 


+ J 

| OPERAND j 


I ,_ . 


-i. x 


X J 



GIVING | 21 

DOWN ( 22 | 

J . „„„ + . 

EVENT 23 



TASK 



T T 

IB 



RPL 

IN 

KEYFROM 

FORMAT LIST 

UP 



1C 

— + + 

ID 

„ + + 

IE 

--+ + 

IF 



PRIORITY 
REPLY 






BUY CHAMELEON 



MSA 
MTA 



DEFINED 
SUBSCRIPT 



NULL- FUNCTION 



COMPILER 

FUNCTION j 3 

COMPILER 

FUNCTION CALL \ 32 



COMPILER 
PSEUDO- VARIABLE 



BUY ASSIGN 
ARCO 






SUBO 



PSEUDO- VARIABLE 



SSUB 
FUNCTION 






SSB' 



SUBSCRIPT 
NOP 






PTCH 



COMMA 



20 



| OPERAND 
| OPERAND 

OPERAND 



— +- 
24 

4 

25 



27 



28 
29 






2E 



2F 



34 



37 
38 



39 



3A 



3B 
3C 



3D 



3E 
3F 



40 



41 



OPERAND 
OPERAND 



OPERAND 



OPERAND 1 
OPERAND 1 



OPERAND 



OPERAND 

-4 

OPERAND 



OPERAND 



OPERAND 1 



OPERAND 1 



OPERAND 



OPERANDI 
OPERAND 



OPERAND 



OPERAND 



OPERAND 1 



-4 



OPERAND 



OPERAND 



OPERAND 2 
OPERAND 2 



OPERAND 2 






OPERAND 2 



OPERAND2 



"H 



OPERAND 2 



♦This triple may have two operands in 
format lists. 
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f _ . .„_ T 

[FUNCTION COMMA | 

COMPILER 
FUNCTION COMMA 



42 



ACT 

COMPILER ASSIGN 

, .„„ 

ASSIGN 

DROP 






| OPERAND | 



+— ~ 



CONCATENATE 



BUY B 



— + 



OR 

AND 

NOT 

LIST 1 

EDIT' 



— +~ 



+— 



+~ 



— + 



DATA' 
STRING' 



STMPD 



MULTIPLE ASSIGN 



TMPD 



JMP 



RPL' 

LITERAL CONSTANT 
FORMAT LIST' 



UP 1 



DO EQUALS 



DOWN' 



ERROR 



UPSIDE-DOWN 
COMMA 



LESS/EQUAL 



GREATER/ EQUAL 

LEFT 

NOT EQUAL 

EQUAL 



GREATER 



44 
45 
46 



| OPERAND 

+— 

j OPERAND 



„_ + 



OPERAND 
OPERAND 2 



47 
48 



| OPERAND 



1 
-+ 



49 
4A 



1 OPERAND 



[OPERAND 2 
I OPERAND 



4B 
4D 
4F 
52 
5 3 



(OPERAND 
| OPERAND 



~+ 



OPERAND 2 
OPERAND 



54 
55 



I 



—4— 



i 



56 
57 



| OPERAND 

■+-— ~- — 

I OPERAND 



-4- 



58 (OPERAND 1 

—4-—— 

5B j OPERAND 1 



5C 
5E 
5F 



I 

■4~- 



-4 



—4 



60 
61 



62 
63 



(OPERAND 1 

»4 



64 

65 



I 

(OPERAND 1 



(OPERAND 1 



67 
68 
69 
6B 
6D 



(OPERAND 
(OPERAND 
(OPERAND 
(OPERAND 



(OPERAND 

X. . 



OPERAND 2 



OPERAND 2 

OPERAND 



OPERAND 2 



OPERAND 2 



OPERAND 2 



OPERAND 2 



OPERAND 2 



OPERAND 



OPERAND 2 



OPERAND 2 



OPERAND 2 



OPERAND 2 
OPERAND 2 
OPERAND 2 
OPERAND 2 



1 | OPERAND 2 

_X_- ._. . J 



(DEFINED 


I I 


T 1 


(SUBSCRIPT' 


| 6E (OPERAND 
| 6F (OPERAND 


1 - 1 

1| OPERAND 2| 


(LESS 




1 1 


-+ 1 

1 1 


(COMPILER 


(FUNCTION 1 


| 70 (OPERAND 

—4— 4 

I i 


1 - 1 
1 1 


| COMPILER 


(FUNCTION CALL 8 


| 72 (OPERAND 
| 73 (OPERAND 


1 ~ 1 
1| OPERAND 2| 


| MINUS 


( COMPILER 


I 1 


-+ ^ 

1 1 


| PSEUDO-VARIABLE 1 | 74 (OPERAND 


1 - 1 
1| OPERAND 2| 


( PLUS 


| 75 (OPERAND 


(COMR 


„X„„ + _. 

| 76 | 

„X„„X „ 

| 77 (OPERAND 
| 7 8 | OPERAND 
| 79 (OPERAND 


-+ ^ 

| OPERAND j 

1| OPERAND 2| 
-+ 1 

1 " 1 

1| OPERAND 2| 


(DIVIDE 


|OFS 


(MULTIPLY 


L_„_„_- . X X 

| PSEUDO-VARIABLE • ( 7 A | OPERAND 


-+ H 

1 " 1 


(PREFIX MINUS 


[ 7B ( 


-+ ^ 

| OPERAND j 


(FUNCTION 1 


„X + __ 

| 7C (OPERAND 
XX 


-+ ^ 

1 ~ 1 
-+ 1 

| OPERAND j 


(PREFIX PLUS 


T T 

| 7D | 


h~ — — — 

(SUBSCRIPT* 


— + + 

| 7 E | OPERAND 

| 7F | OPERAND 

| 80 | 

| 81 | 


--+ ^ 

1 - 1 
-+ 1 

1| OPERAND 2 j 

1 - 1 
| OPERAND | 


(EXPONENTIATE 


(TO 


| ALLOCATE 


(BY 


— + + 

| 82 | 


-+ ^ 

1 " 1 


(FREE 


— + + 

| 83 | 

| 84 | OPERAND 


-+ ^ 

| OPERAND j 

-+ 1 

1 " 1 


(WHILE 


|*CV 


— + + 

| 85 | 


-+ ^ 

| OPERAND j 


(SNAP 


— + + 

| 86 | 

| 8B | 


-+ 1 

| OPERAND j 

-+ ^ 

| OPERAND j 


| DELAY 


|CV 


— + + 

| 8C | OPERAND 


-+ 1 

1| OPERAND 2| 


(EXIT 


— + + 

| 8D | 


-+ i 

1 - 1 


(STOP 


— + + 

| 8F | 


~+ 1 

1 " 1 


(LINE 


— + + 

| 90 | 

| 91 | 


-+ ^ 

| OPERAND | 
-+ 1 

1 " 1 


(END ALLOCATE 


(PAGE 


— + + 

| 92 | 


-+ ^ 

1 - 1 


(SKIP 


— + + 

| 94 | 


-+ 1 

| OPERAND j 


L„ ___ 


x x 


— X 1 
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r — . — .__ 

[DISPLAY 


I 95 | 


— T 1 

| OPERAND | 




XX 


-4. 1 


| COLUMN 


T T 

| 96 | 

-+ + 

| 97 | 


T 1 

| OPERAND j 

| OPERAND | 


| SIGNAL 


[E 


-+ + 

| 98 | 


-+ 1 

1 - 1 


| REVERT 


-+ + 

| 99 | 

-+ + 

| 9A | 


-+ "I 

| OPERAND j 

1 - 1 


(F 


|c 


-+ + 

I 9E | 


-+ 1 

1 " 1 


|A 


-+ + 

| AO | 

-+ + 

| Al | 

I A2 | 


--+ * 

| OPERAND j 
| OPERAND | 
| OPERAND | 


|CALL 


|B 


1 RETURN 


-+ + 

| A3 | 

„ 1 .. 1 


-+ 1 

| OPERAND | 
-4. J 


|P 


T T 
1 A« | 

| A5 | 

| A6 | 


T 1 

| OPERAND j 

| OPERAND | 
| OPERAND | 


|GO OUT OF BLOCK 


|R 


(GO TO 


-+ 1 

| A7 | 

-+ + 

| A8 | 


-+ ^ 

j OPERAND j 
| OPERAND | 


(GOLN 


|BUYT 


-+ + 

| A9 | 


-+ \ 

| OPERAND | 


|BUYX 


-+ + 

| AA | 


-+ \ 

| OPERAND 2 j 


| HSELL 


-+ + 

j AB | OPERAND 

-+ + 

| AC | 

-+ + 

| AD | 


-+ \ 

1 I OPERAND 2 | 

-+ 1 

| OPERAND j 

| OPERAND | 


(SELL 


(BUY 




-4- + 

| AE | 

"+ + 

| AF | 

-+ "I 

1 B3 | 

-+ + 

| B5 | 

| B7 | OPERAND 


"+ i 

| OPERAND | 

-+ 1 

| OPERAND | 

| OPERAND | 
| OPERAND | 
1 " 1 


|X 


(BUYS 


1 PROC 


| BEGIN 


(ITERATIVE DO 




4-4. 


- X J 


|DO 


T T 

j B9 j OPERAND 


t 1 


|IF 


-+ + 

| BB | OPERAND 


-+— — I 

1 | OPERAND 21 


|SN2 


-+ + 

| BC | 


| OPERAND | 


|. — . 

|NOSNAP 


-+ + 

| BE | 

-+ + 

| BF | 

-4 + 

| CO | 

-+ + 

| C2 | 


| OPERAND j 
- X 4 


| FORMAT 


T 1 

| OPERAND j 

| OPERAND | 

x i 


(TO s 


(BY 1 


t 1 

| OPERAND j 


L . . __ 


_X X 


„_x _ J 



r 

(WHILE 1 




T T - 
j C4 (OPERAND 


' T — — --- 1 
1| OPERAND 2| 


(WRITE 




( C7 I 


~+— — — H 

1 - 1 


(READ 




-+ -+— — 

| C9 | 

| CC (OPERAND 


— H- — H 

1 - 1 

-+— H 

lj OPERAND 2| 
1 ( OPERAND 2 | 


|CV f 




| STATEMENT 


NUMBER) DO (OPERAND 






__X X 


. X 4 


|CLN1 




| Dl ( 

„i,.-,„ „l.,.„. , - 


T 1 

| OPERAND | 

1 | OPERAND 2| 

| OPERAND | 

| OPERAND | 


1 STATEMENT 


LABEL 


t T 

| D2 | OPERAND 

I D3 ( 
| D4 | 


(CLN2 




(COMPILER NUMBER 


|GET 




| D5 | 
( D6 | 


--+— — 1 

I - ( 

| OPERAND | 


(COMPILER LABEL 


(PUT 




I D7 | 


~+— — — | 

I - 1 


|E" 




-+— - H— 

| D8 | 
XX 


1 - 1 

- X 4 


(UNLOCK 




1 D9 I 


T 1 

I - I 


|F' 




_X„_.L__„__ 

| DA | 
| DB | 


-+ 4 

I - I 

I - I 


(REWRITE 




|OPEN 




-+— +— — - 

| DD | 


-+ 4 

I - I 


|c - 




| DE | 
| DF | 
1 El 1 


~+ 1 

1 - 1 

1 - i 
1 - 1 


| CLOSE 




(CALL* 








„, I i 


-+ i 

1 - 1 

1 - 1 


(P 8 




I E4 | 

| EB | 


(END PROG 




(END BLOCK 




| ED ( 
XX 


-+ 4 

1 - 1 

- X 4 


(END PROG 2 


T T 

| EE | 

| Fl | 


T 1 

I - I 
I - I 


(END I/O 




(PROC* 




| F3 I 


-+ 1 

| OPERAND j 


(BEGIN 1 




I F5 | 


--+ 4 

| OPERAND | 


( ITERATIVE 


DO' 


-+ — -+-— — 

| F7 | 


-+ 1 

| OPERAND j 


(DO 1 




( F9 | 


-+ 4 

| OPERAND | 


(IF* OR ON 




I FB I 
XX 


-+ 1 

| OPERAND j 
- 4- 4 


( PREFMT 




T T 

| FD | 

| FF | 


T 1 

I - I 


| FORMAT * 




L__— — 




_A____.L______— 


—X 1 
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TEXT CODE BYTES IN PSEUDO-CODE 



B 



■T — 

(LA 
+ _ 
|CL 

■+— 

| AL 

+— 

|SL 

+— 

|STC 

4 - 

| ST 

+— 

(EX 

+— 

ISTE 

+ „. 

| LE 

I 

+— 

|CE 

+—- 

[AE 

+— " 

|SE 

+—- 
j ME 
+ „_ 

|DE 

+— - 
|AU 

+— - 
ICVD 
,X__- 



"T" — """"" 
|CLi 

■+— 
JMVI 

•+— 
|NI 

■+-— 
|OI 
. + „„ 

|SSM 

■+— 

(TM 

■+— 
|XI 

4~ — 

|LA S 
.x_„_ 

|DCF2 

i 

j BCT • 

4— 

|MDRP 

4— — 

I 
|SN2 

4— — 

|OSM3 

•+— 

|EQU' 

4~ — 

|BSW 



C 
CLC 
MVC 



INST 

4— 

MVCL 

+— -H 





1 

2 
3 
4 
5 
6 
7 
8 

9 

A 
B 
C 
D 
E 
F 



(. ^„„„ + ^ + . 



L__ + ___. + „.„ + „x„„ + __x„„x__x„__x__ 



l___x__„ + _„„x„ — 4__„x-_x_„x_ — x™„ + 



I. _ + „^„„x — „x„„x_ + „„ + _ + ^„„x„„, 



l_ — + „ + „ + -+-- -- + + +— +_— +_ 



|. „ + -x_„_x__„x„„x. 



H „„ + „„„ + ^ x__„ + „„ + __x_„ + _„ + „_x._ 



DCVO 



DCV1 



DCV2 



DCV3 



DCV4 



DCV8 



DROP 



EQU 



PROC 



V— — +— 



BEGIN 
PASS 



IPRM 



EPRM 



ITDO 



OSM1 (BGPE 



OSM2 | EOB 



ALLOC | PCC 



DCA3 | CHSM 



DCA4 



I ADR 



FREE 



ISN3 



BUY |BCIN 



SELL | STOP 



PROC' 



[BGNP 



I 



BEGIN 1 | BGNP' 



ADV 



I DROB 1 



l___ + ___^„_ + _„_x„.„x 



PLBS |PLBS' 



EOP 
l_„„ + „_„ + _ _ + „ + , 

EOP2 



PCBS |PSLD 



L_ + „„„X^ _x__„x_„__x„„ + 



IPRM' |ABS 



EPRM 1 | ABS f 



ITDO' (ALIGN 

JL 



BLBS |LCR JLCDR 

1—4 

BLBS ' j BCR I SPM 



+ „„ + __x_„_x_ 



BUYS | HER |LTR 



PINS |HDR |LTER 



RWA |BCTR|LTDR 



APRM )NR |LNR 



USNG | OF | LNER 



LPR |SRA |N 
+— — +— +- 



EDIT |XF |LNDR 



|.___ + „__x_ _ + „x___x„„ + „„x__x_„_x__ 



FMT t LR | LDR 
LST 



FMT | CR | CDR 



+ __„ + _„ + -_„ + ...„ + __ + _„ + _„ + ._._ + _« 



FMT ' | AR | ADR 



EDIT f |SR | SDR 



ERROR | MR | MDR 



PFMT | DR | DDR 



L__. + + „_„„X -+..-{ _X_„ + __X„__X__ 



| SVC |AWR 



I. X X X _L_„_X. + _„x„„ + _„„ + 



|BALR|SWR 
_X„ 



LCER 



CLR 



ALR 



SLR 



LPER 



LPDR 



LER 



„_x___x_„^___x_„ + „_ + _„_x___ 



CER 



AER 



SER 



MER 



DER 



AUR 



SUR 



LM jBCTA' JLH 



SLA |BC 



|CH 



SLDA|DCF | AH 



TR | 

TRT | 
_ + _ + _„x„ 



SLDL|BCTA | SH 



+- 4——+~ 



SLL | BCT |MH 



SRDA | O 



|STH 

-+— 

|QLA 



SRDLJX 



ISTD 



SRL 



|LD 



STM |C 



| CD 



BXH 



| AD 



+ „„ + ^ + _. ^ + „„ 



BXLE | S 



iSD 



+ „„ + „„X _ + _ _x_„_ 



SL1 |M |MD 

SN | D I DD 



CL1 |IC 



I AW 



CN 



| BAL 1 CVB 
-X_ .__X___. 



MVN 



MVO 



MP 



EDMK 



PACK | 



UNPK | 



MVZ | IGNORE | 

+— +— +- 

NC 

OC I CONV | 

XC I CONV f | 

+— + — - +- 

ZAP 1USSL j 

I 

+—4 

CP 



— +- 

DRPL I 



AP | CNVA 

SP |SINL 1 
+— +— -+— ■ 



CNVC1 I 



| DP |CNVC2 | 

+— +— +- 

ED | CNVC3 | 
- + _x_„„ + „. 



CNVC4 



+— H 

x ^ 

X H 

4— H 
+— I 

4- — 1 

4—4 

+— H 

x 1 

IGN2J 
X -I 

IGN4J 

+—— 1 

IGN5J 
+ 1 

IGN81 



TEXT FORMATS IN PSEUDO-CODE 



after the symbolic representation of the 
instruction to which if refers. 



Pseudo-code Design 

Pseudo-code is essentially a symbolic 
representation of machine code, designed 
in such a way that it is possible to 
directly transform it into executable 
machine code by an assembly process. 

A unit consists of a one- byte operation 
code followed by, normally, a two or four- 
byte field and on the other occasions by a 
variable length field. The bit pattern of 
the operation code indicates the type of 
unit which it heads. 

By having most units either three or 
five bytes long, the scanning of pseudo- 
code is a fairly straightforward process. 

The format of the various pseudo-code 
units is as follows: 



Three-byte unit ; this consists of a one- 
byte operation code followed by a two- byte 
literal offset, and it appears immediately 



Five-byte unit: there are four basic 
five-byte units which have the following 
formats. 

Bytes 1 3 

r — ._ — _ — . T _. — .____„____ T _ „ _ 1 

| OP | 1 j R2 j 

I I Rl I 1 

| CODE | | DICT REF j 

L__ . X_. __ ___. .X . .J 

Bytes 1 3 

r — ___ — T „„„— . T .«_„_ 1 

I op | i i 

1 I R3 i OFFSET j 
| CODE | 1 I 

l„_ . X__„___„„. — X„„„„_„„J 

Bytes 1 3 

r — __ — . T — „„_„. — ,„ T — ,_ — ________ 1 

1 OP | i i 

I I Rl i R2 I 

I CODE I | | 

L . X .„_„„„X„ .__. J 
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Bytes 


1 






3 






r 
| OP 

! 

| CODE 

L « 


T 

I 

1 

I 
~X_ 


1 




HEX 


" T 
I 
1 

1 

X_ 


R2 
DICT REF 


1 

i 
t 
I 

- J 



Using these units with f if necessary, a 
three-byte unit, it is possible to symbol- 
ically represent any possible RR, RX, RS 
or SI instruction. 



Variable length unit ; the format of this 
is: 



Bytes 

I 
I 



1 



OP 



3 
- T - 



FLAG 



VARIABLE 



CODE 



With a specially designed variable 
field described by a two-byte flag, it is 
possible to represent any SS instruction 
with this unit. 

The first byte of the two-byte flag 
indicates the format of the variable field 
and the second gives the length of the 
total unit. 



RX Instructions 

The following examples illustrate the 
basic forms of an RX instruction and the 
way in which they are represented in 
pseudo-code. 

L Rl,JOE 

Bytes 1 3 

r T T 1 

| L | Rl | DRCJOE) | 

L X . X J 

L Rl, JOE+24 

Bytes 1 3 

r T T . — . 7 

j L | Rl J DR(JOE) J 

L_ X . . X J 

| OSM1 | 24 | 

I X J 

L Rl,JOE(R3> 
Bytes 1 3 

| L | Rl | DR(JOE) | 

L X X J 

f . r . . 1 

| OSM2 | R3 | 
L X J 



L Rl, JOE+24 (R3) 

Bytes 1 3 

r . T T 1 

| L | Rl I DR(JOE) j 
I X X J 

r T t — — 1 

j OSM3 I 24 | R3 | 
L x_ X 1 



Alternatively, JOE might be a base reg- 
ister in which case the dictionary 
reference would be replaced by a symbolic 
register. The two forms are distinguished 
by setting the flag bit of the first sym- 
bolic register equal to one when a base 
register is intended. 



L R1,0(R3,R2) 

Bytes 1 

— T 

. i 

r~ 



r — - 

I L 

L 



Rl 



R2 



OSM2 



I 
-X- 



R3 



-X- 

"1 



When a branch instruction is generated 
which branches to a compiler generated EQU 
value, bit two of the second byte is set 
to one to indicate that the second field 
is in fact an EQU value. 



Bytes 12 3 

I BC | 01 | HEX | EQU VALUE | 

I. X X X 1 

Bytes 12 3 

I "T 1 7 I R2 ] 

| BC | | HEX t -J 

j | I I DICT REF | 



RS Instructions 

The following examples illustrate the 
basic forms of an RS instruction and the 
way in which they are represented in 
pseudo-code: 

BXH R1,R2, ALPHA 

Bytes 1 3 

r t -t~' 1 

1 BXH | Rl j DR( ALPHA) j 
L X X J 

r T 1 

j OSM2 j R2 j 
l X J 
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BXH Rl,R2,ALPHA+24 

Bytes 1 3 

r . T T -, . . — 1 

j BXH |0 Rl J DRC ALPHA) | 

I X . X_._ J 

| OSM3 | 24 | R2 | 

i J X.. - J 



Alternatively, ALPHA might be a base 
register in which case the dictionary 
reference would be replaced by a symbolic 
register as in the RX instruction. 



SLA Rl,6 



Bytes 



| SLA 
i 



I 
_X_ 



Rl 



"T" 

I 
-A.. 



RR Instructions 



SS Instructions 

Basically, an SS instruction consists of 
two base registers and a length byte. 
Since this does not conform to the format 
of other items of pseudo-code, it is 
necessary to represent an SS instruction 
with a variable length field, the length 
of which is specified in the second of two 
flag bytes immediately following the 
operation code. 



This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 
same time maintaining the items in the 
guise of pseudo-code. 



Variable Length Item FLAG 

The first bit of the FLAG indicates wheth- 
er or not the unit represents a machine 
instruction. In the former case, the for- 
mat of the instruction is: 



The following example illustrates the form 
of an RR instruction and the way in which 
it is represented in pseudo-code. 



AR R1,R2 



Bytes 
r- 



AR 



-T- 

1 
-J— 



Rl 



3 



R2 



Bytes 
1 



10 



r t*~~ 


— T r _ 




"T" 




"T" 




- T - 




- T - 




~i 


|OP I 


1 i 




1 




1 




I 




i 




1 


| | FLAG | LENGTH) 


Fl 


I 


F2 


1 


F3 


1 


F4 


I 


F5 


1 


|CODE| 


I 1 




1 




I 




1 




1 




1 


1 J.. . 


X X. 




_X- 




-JL- 




_X- 




-X- 




-J 



The format of the FLAG is: 



SI Instructions 

The following examples illustrate the 
basic forms of an SI instruction and the 
way in which they are represented in 
pseudo-code: 



CLI BETAfX'FF 1 



Bytes 



j CLI 
L 



"T" 

I 
-X. 



FF 



DR(BETA) 



CLI 3ETA+4,X , FF i 

Bytes 1 3 

r t i i 

j CLI j FF j DR(BETA) j 

L X . J.. ._. . . J 

r r _ 1 

j OSM1 | 4 j 

L X J 

Alternatively, BETA might be a base 
register in which case the dictionary 
reference would be replaced by a symbolic 
register. 



Bit Zero 

Always zero 

1 F2=dict. ref. 

2 F3=dict. ref. 

3 F4 not present 

4 F5 not present 
5-7 Not used 



One 

F2=sym reg. 
F3=sym reg. 
F4 present 
F5 present 



The FI field is identical to the length 
field in the SS machine instruction. The 
field contains one or two lengths which 
are each one less than the corresponding 
lengths used in Assembler Language. The 
F4 and F5 fields contain literal offsets. 



Compiler Function (Bit 1=1) 

In compiler functions, the format of the 
FLAG depends on the operation code. Thus: 



r r . — T r T — . — 1 

1 CONV j FLAG | LENGTH | Fl | F2 j 

l . X — X X, X_ J 
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The format of the FLAG is: 

Bits Both Zero Both One 

Always one 

1 and 2 Fl=dict« ref . F1=TMPD operand 

3 and 4 F2=dict„ ref. F2=TMPD operand 

5-7 Not used 

The FLAG in the IGNORE item does not 
contain any information. 

The following examples illustrate the 
basic forms of an SS instruction and the 
ways in which they are represented in 
pseudo-code. 

MVC ALPHA(7),BETA 

Bytes 1 2 3 4 

r ________ ___ — ___ .. — _ n 

I MVC | |X' 00' J 8 | 6 | DR (ALPHA) | 
L_ X — -J. JL. .- .JL„ J 

6 

r — — T 

|DR(BETA) ( 
L__- _„J 

ZAP ALPHA+3C14), BETAC6) 

Bytes 1 2 3 4 

|ZAP1X S 10 S I 10 | 13 5 | DR (ALPHA) | 

L. X_„ J._„_J._ _X— — __J 

6 8 
j——.. T „ „ 1 

| DR (BETA) | 3 J 
L__ .__ _X„- .- J 

MVC ALPHAC6), BETA+11 
Bytes 1 2 3 a 

| MVC (X 1 08* I 10 1 5 | DR (ALPHA) | 

L— J X .__X-~ -X. __ — .-J 

6 8 

r — - T — ,„ 1 

|DR(BETA)| 11 J 

L__ . X_. J 

AP ALPHA+3(14) , BETA+11 (6) 

Bytes 1 2 3 4 

r T . — T — ___._. T .~ 1 

|AP JX'IS'J 12 | 13 5 | DR (ALPHA) | 

L _X X X „X _J 

6 8 10 

. r _ T T 1 

| DR (BETA) j 3 j 11 j 

L_. .__ X— X _J 

Alternatively, ALPHA and/or BETA might 
be base registers, in which cases, the 
dictionary references would be replaced by 
symbolic registers and the FLAG byte would 
be set accordingly: 



MVO ALPHA (14), ll(6 f Rl) 

Bytes 1 2 3 4 

!MVOlX f 28 f | 10 113 5 fDRCALPHA)) 
L__X___„X— ___X_____X_______. J 

6 8 

\ Rl "T ll] 

L„__ ._X____J 



Pseud o-Code Format Between IEMTRA and 

IEMTRF " ~ " ~ " " " " " ' " 

Fields that may hold a dictionary 
reference or register number have, at this 
time, the possibility of holding a literal 
offset. The presence of an offset is 
indicated by the first bit of the field 
being set to one, and earlier flags being 
set to * register. f 



7. TEXT FORMATS IN ABSOLUTE CODE 

where a standard set of assigned registers 
is to be used for a section of code, e.g. 
in the construction of prologues, or dur- 
ing the generation of addressing instruc- 
tions, it is possible to generate instruc- 
tions with registers in absolute code, 
instead of the normal pseudo-code two-byte 
symbolic registers (see "Text Formats in 
Pseudo-Code* in this section). 

Sections of absolute code are preceded 
by ABS markers and followed by ABS" mar- 
kers. The operation codes are the same as 
the normal pseudo-code instructions (see 
"Text Code Bytes in Pseudo-Code" in this 
section) , but the instruction formats 
differ, as shown in the following 
examples s 

RR Instructions 

Bytes 1 

r _— — . — . — .__ — ._— ._„ 1 

| OP CODE | Rl R2 j 

L. „ X_- ____„J 

RX Ins tructions 

Bytes 12 

r _ — . ._ — „___„_. 1 

I OP CODE | Rl X2 | B2 | 

L__ . X X . J 

3 

r _ _ __. 1 

j DICT REFCE j 
L__.__-.__-.— .J 

1 

r __. _ 1 1 

j OSM2 j OFFSET | 

L „_. X .. _J 
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SS Instructions 

Bytes 1 2 3 

r __. T T .- T — 1 

| OP CODE J LENGTH j Bl j DICT REFCE j 

L„_ . JL X -X . ™„J 

5 6 

r _. r -j 

j B2 j DICT REFCE | 

L_ -X™ . . . ._J 

1 

r . T . 1 

j OSM1 j OFFSET j 

L__. X„. . J 

1 

r _ — . T _. — 1 

j OSM2 j OFFSET j 
L______X —J 



RS Instructions 
Shift Instructions 

Bytes 12 

r . T — . — — T ■ 1 

j OP CODE | Rl j OFFSET | 

L - X ._. X . J 

Other Instructions 

Bytes 12 

r . T .. T -„- 1 

| OP CODE j Rl R2 j | B2 | 

L — __. X. . . X . J 

3 

r . 1 

j DICT REFCE j 

L_ . J 

1 

r _ T , _ 1 

1 OSM2 | OFFSET j 
L__. X . . J 



SI Instructions 

Bytes 1 2 3 

r _. -™ T _ — . — T „.. T _. — — 1 

| OP CODE | MASK j Bl | DICT REFCE | 

t X _X -X . J 

1 

r — . . T . 1 

| OSM2 j OFFSET j 

L . X . J 

Note that the OSM1/OSM2 markers and their 
following offsets are all optional; note 
also that the OSM2 byte does not have a 
register following it f as in normal 
pseudo-code, but a literal offset. 

The first bit (bit 0) of the byte con- 
taining the base is used as a flag. If 
this bit is a one, the following two bytes 
contain, in their low order position, a 
twelve bit offset, instead of a dictionary 
reference. 



After Phases RA and RF all instructions 
in the text will be in absolute code. 



8. 



SECOND FILE STATEMENTS, AND THE 



FORMATS OF COMPILER FUNCTIONS AND 
PSEUDO-VARIABLES 

Second File Statements 

Any expression occurring in an attribute 
must be put into a form which is accept- 
able to the translator phase. This means 
that it must look like a source statement. 
To comply with this, all expressions deal- 
ing with array bounds, string lengths, 
DEFINING, and INITIAL value iteration fac- 
tors are converted into assignments to 
function references. These functions have 
a special meaning. They are not entered 
in the dictionary, and their dictionary 
references are to a region in the communi- 
cations area. The pseudo-code physical 
phase dealing with each particular func- 
tion generates in-line code instead of a 
function reference. 

All the statements of this type are 
generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the "second file." 

The statements generated have the fol- 
lowing overall format: 

Byte 

Number Description 

1 Code byte SN2 

2-3 Dictionary reference 

4 Options byte 

5 Statement type markers 

6 Statement body 
onwards 

The dictionary reference is the 
reference of a second file dictionary 
entry. It is described in this section 
under "Internal Formats of Dictionary 
Entries." The options byte is that for 
the options operative in a prologue, i.e., 
no interruptions are accepted. 

Array Bounds 

The format of the second file statement 
for array bounds is as follows: 



Byte 

Number Description 

1 Assignment statement marker 



Code Byte X'OO' 
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3-4 ADV code X f 0002 l 
5 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X 8 00 ! 

8-9 Dictionary reference of array 

10 Triple operator code byte X , 44' 

1 1 Code byte X* 5E 1 

12 Code byte X'OO 1 

13 Code byte X'OO 1 for lower bound, 
X'01 1 for higher bound 

14 Number of the dimension whose 
bound is referenced 

15 Right parenthesis 

16 Triple operator code X'46* 

17... Expression for bounds 

Statement terminating semicolon 

Multiplier Function 

Multiplier function statements are used to 
denote copying of a section of one dope 
vector into another. The format is: 

Byte 

Number Description 

1 Assignment statement marker 

2 Code byte X^O 1 

3-4 MTF code bytes X'0010 1 

5 Compiler call marker 

6 Left parenthesis 

7 Code byte X f 00 r 

8-9 Dictionary reference 1 

10 Triple operator code byte X'44* 

11 Code byte X'OO 1 

12-13 Dictionary reference 2 

14 Triple operator code byte X s 44* 

15 Code byte X ■ 5E l 

16 Code byte X s 00 s 
17-18 Offset 1 

19 Triple operator code byte X s 44' 

20 Code byte X S 5E S 



21 

22-23 

24 

25 

26 

27-28 



29 



30 



Code byte X'OO 1 

Offset 2 

Triple operator code byte X*44 r 

Code byte X s 5E 1 

Code byte X s 00' 

Length 

Right parenthesis 

Statement terminating semicolon 



This statement requires the number of 
bytes specified by the length to be moved 
from the dope vector of the item at dic- 
tionary reference 2, starting at an offset 
of offset 2 , to the dope vector of the 
item at dictionary reference 1 , starting 
at an offset of offset 1 . 

String Length Statement 

The string length statement is used to 
initialize the maximum length slot in a 
string dope vecoor. The format is: 

Byte 

N u rn be r O escr ijj_L ioi \ 

1 Assignment statement marker 

2 Code byte X'OO 1 

3-4 SDV code X' 0004* 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X f 00 f 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator Code X ! 46" 

12... Expression 

Statement termination semicolon 

The dictionary reference is that of the 
item whose dope vector is being initial- 
ized . If the expression is defining the 
length of a string being returned by an 
internal functoon, then the dictionary 
reference is that of the entry type 2 
belonging to the label* In Figure 9 the 
reference is to B or C depeiding on wheth- 
er the statement appeared in a PROCEDURE/ 
ENTRY statement r or an ENTRY attribute. 
If the item is a data item, an external 
procedure , or a formal parameter entry 
point, then the dictionary reference of 
that particular item appears in the 
statement. 
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INITIAL Value Statements 

INITIAL value statements are used to ini- 
tialize a vector of storage used to con- 
tain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 
as follows s 

Byte 

Number Description 

1 Assignment statement marker 

2 Code byte X" 00 f 
3-4 IDV code 

5 Compiler pseudo- variable 

6 Left parenthesis 

7 Code byte X'OO* 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator code X f 46 f 

12 . . . Expression 

Statement terminating semicolon 

The dictionary reference is to the item 
being initialized. The integer is the 
number of assignment statements of this 
type f and for this variable, that have 
been generated before this one. 

Second File Statements for BASED and 
OFFSET 

A statement is generated for a variable 
which is declared BASED with its asso- 
ciated pointer given, and for a variable 
which is an OFFSET with its associated 
base given. The format of the statement 
is similar to that of the INITIAL value 
statement except : 



Byte 

Number 

3-4 



12 



Description 

PEXP code (BASED) X'OOIS 1 or 

BVEXP code (OFFSET) X^OOl?' 

Expression (which must be a 
single dictionary reference of 
the associated pointer or base) 



The dictionary reference in bytes 8-9 is 
that of the BASED or OFFSET variable. 

Second File Statements for DEFINED 

Second file statements are generated when 
an expression is associated with DEFINED, 
but the expression does not contain any 
iSUBs. The format is: 



Byte 
Number 



2 
3-4 

5 
6 
7... 



Description 

Compiler assignment statement 

marker 

Code byte X , 00 i 

ADF code; 

X'OOll 1 for base only 
X , 0012' for subscripted base 
X'OOIS' for base with iSUB»s 

Pseudo-variable marker 

Left parenthesis 

Base and subscript list 

Right parenthesis 

Statement terminating semicolon 



9. PSEUDO-CODE PHASE TEMPORARY RESULT 
DESCRIPTORS (TMPD) 



Temporary Description Stack 

All information on temporary results is 
contained in this stack. Each item in the 
stack consists of 10 bytes. A maximum of 
200 items is allowed. 



Byte 
Number 



3-4 



5-6 



Description 

Flag 1: describes the addres- 
sing method contained in bytes 5 
through 10. 2 bits in this byte 
are also used during the release 
of temporary results 

Code 2 describes the radix, 
scale, mode, string type etc. 
of the temporary result. The 
format of this byte is identical 
to the similar byte in the dic- 
tionary and the DED used by the 
Library subroutines (see "Data 
Byte" in this section) . 

P,Q: describes the precision 
and scaling of arithmetic type 
results 

BASE in one of the following 

forms: 

1. "Reg by value" register con- 
taining the result - no index 
or offset is allowed. 

2. "Reg by value" register con- 
taining the base address of 
the result stack 

3. Offset from beginning of cur- 
rent temporary storage for 
results held in the temporary 
storage stack 

4. Dictionary reference which 
specifies the base address of 
the result of a subscript 
calculation 
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7-8 



NDX in one of the following 
forms: 



1. 



2. 



Symbolic indexing register 
for BASE type 2 and 4. 
The number of bytes required 
in the temporary core stack 
for BASE type 1 



9-10 



OFS: which is a literal offset 
to be inserted in the base 
address. When used with BASE 
type 1 the actual temporary off- 
set is the sum of the offsets 
and the number of bytes required 
in the stack is the sum of the 
contents of OFS and NDX 



Strings are described in the following 
ways: 

If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 

If the string is of variable length or 
longer than 256 bytes, the storage is 
bought and sold when required. This 
type of string always has a dictionary 
entry . 

If the string has no dictionary entry, 
it is described by the usual CODE 
bytes , the temporary core offset in 
BASE, and the byte length in NDX. 

If the string has a dictionary entry, 
it is described by the usual CODE 
bytes and the dictionary reference IN 
BASE. The dictionary entry describes 
the location of the string which may 
be either the temporary area offset 
and size for the first type, or a BUY 
statement for the second type. 

The f top f of the stack is indicated by 
two pointers: PSTK and LSTK. PSTK points 
to the •physical* top of the stack, which 
is the last item added. LSTK points to 
the •logical* top of the stack, which is 
the next item to be released. The dif- 
ference is necessary because the temporary 
storage stack may not be released in the 
same order as the description stack. When 
an item in the description stack is 
released, the corresponding temporary 
storage may not be at the top of the stack 
storage. As the storage stack is always 
released in order, the description is 
flagged and the LSTR is reduced by 1 item. 
When the corresponding temporary core is 
released from the top of the storage 
stack, the description is completely 
removed from the 'physical 1 stack. 



Temporary Descriptions in Pseudo-Code 

Descriptions are passed between pseudo- 
code phases using two or three TMPD tri- 
ples, with the following formats: 

r , T . j — t"~" T 1 

| TMPD | FLAG) F2 | F3 | F4 | 

j. + -X + „_x__ H 

I TMPD j F5 | F6 | 

j— __ + ___- + „_- j 

I TMPD j F7 | | 

L. X . X J 

1. FLAG describes the use of fields F5, 
F6, and F7. 

2. CODE contains the data byte (describ- 
ing type, radix, scale, mode, etc.) 

3. F3 and F4 contain: 

a. Precision and scale factor of 
coded arithmetic type data 

b. String length for coded non- 
adjustable strings (maximum 
length for varying strings) 

c. Picture dictionary reference for 
data with picture 



h 



Bit 
Number 



and 1 



Value 



00 
11 
01 
10 


1 


1 





1 



1 



Meaning 



H 



F5 contains a dictionary 
reference 

F5 contains a temporary 
workspace offset 
F5 contains symbolic reg- 
ister with address of item 
F5 contains register with 
value of item 
F6 does not contain index 
register 

F6 contains index register 
Two TMPD triples are used 
Three TMPD triples are 
used, and F7 contains an 
offset 

Normal setting. String 
utility STRUT2 drops sym- 
bolic register in F5 if 
used for input 
String utility STRUT2 does 
not drop symbolic register 
Normal setting 
Result of an invocation of 
SUBSTR or REPEAT 
No SELL is required 
User of this description 
must SELL dictionary 
reference in F5. Set by 
string utilities for 
adjustable string result 
F6 does not contain a dic- 
tionary reference 
F6 contains a dictionary 
reference 
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h 



FLAG 



F5 



F6 



T — . T 

Whether F7 
applicable 



Comments 



X f 00* 
X f 02 f 
X'O**' 
X'OS 1 

x^o 1 

X'^l* 

X f 49 s 

X^O 1 
X'CO" 

X'Cl* 

X f C5 f 



Dictionary 
reference 
Dictionary 
reference 
Dictionary 
reference 
Dictionary 
references- 
Dictionary 
reference 
Symbolic 
register 
Symbolic 
register 
Register 
Workspace 
offset 
Workspace 
offset 
Workspace 
offset 



Dictionary 

reference 2 

Index 

register 

Dictionary 

reference 

Dictionary 

reference 



Dictionary 
reference 
Dictionary 
reference 



Yes 

No 

No 

No 

Yes 

Yes 

Yes 

No 
Yes 

Yes 

No 



STRUT2 output — must SELL dictionary ref. 

REPEAT function result. 

SUBSTR function result. 

Arithmetic subscript, or SDV for varying 

string subscript. 

Non-adjustable fixed string subscript, with 

DROP in STRUT2. 

Non-adjustable fixed string subscript, without 

DROP in STRUT2. 

Item in register -- F7 cannot exist. 

SDV for adjustable fixed string subscript, 
SUBSTR pseudo-variable result. 



h 



Notes 



1. Since F6 cannot be. used for both an index register and a dictionary 
reference, bits 2 and 7 of the FLAG byte cannot both be 1. 

2. Many other bit configurations in the FLAG byte are meaningful and could 
be used for future; applications. 

i - . . .. . - — . — _. ._- . — ._„___- . . — __ — _. 1 

Figure 14. Temporary Descriptions in Pseudo-Code — Use of TMPD Triple Fields F5 and F6 



4. F5 and F6 are at present used as shown 
in Figure 14. 

5. F7 can be used by adding X"10 f to the 
FLAG byte in all cases which give a 
meaningful result (see Figure 14). 



10. LIBRARY CALLING SEQUENCES 

Internal library routines are used for such 
things as data type conversion, where there 
is no explicit reference to the routine in 
the PL/I source program. The arguments are 
handed to the routines in registers. In 
pseudo-code form, assigned registers are 
used, and special markers, IPRM and IPRM' 
are used to indicate the calling sequence 
to the register allocator phase. Internal 
library calls appear in pseudo-code as: 



IPRM 

L 

L 



1, CARGUMENT1) 
2, (ARGUMENT2) 



L 
BALR 

IPRM' 



15,IHE— 
14,15 



--(Routine Name) 



The second byte of the IPRM item is used 
as a flag byte. The settings are as 
follows: 



Bit Must be zero 

Bit 1 END, or RETURN statement not 
in BEGIN block calling 
sequence 

Bit 2 END statement calling 
sequence 

External library routines calls corres- 
pond to explicit references to functions or 
I/O statements in the PL/I source program. 
The arguments to the routines are placed in 
workspace, and register 1 is set to point 
to the first argument. For pseudo-code 
form the calling sequence is preceded by an 
EPRM marker and followed by an EPRM' mark- 
er. Thus, the library calling sequence 
appears as : 



MVC 



WSP(N), CARGUMENTl) 



EPRM 


1,WSP 


L 


15,IHE 


BALR 


14,15 


EPRM' 




LA 


1,WSP 



-—-(Routine Name) 



The second byte of the EPRM is used as a 
flag byte. The setting is as follows: 

Bit A calling sequence to a PL/I 
procedure 
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APPENDIX A: TERMS AND ABBREVIATIONS 



DESCRIPTIONS OF TERMS AND ABBREVIATIONS 
USED IN TEXT DURING A COMPILATION 

The table in this Appendix gives first, the 
term or abbreviation; second, the phase in 
which the term is used; and third, a brief 
description of the meaning of the term or 
abbreviation. The key to the code used is: 



R After the Read-In Phase 
PS During the Pseudo-Code Phase 
T A triple or translator input 
code byte 



APRM 



PS 



ARCO 



T,PS 



AREA R 

ARGUMENT MARK R 



Term or 
Abbr evia t ion 



ABS 



ABS f 



ADI 



ADR 



ADV 



ALIGN 



ALLOCATE 



Used In 

Phase Description 
R,T Charact€»r string for- 
mat item 

PS Indicates the start 
of absolute code 
(Section 4, Text For- 
mats in Absolute 
Code) 

PS Indicates the end of 
absolute code 

PS Addressing instruc- 
tion (used between 
phases RA and RF> 

PS The two byte operand 
contains a register 
for use by final 
assembly for addres- 
sing branch destina- 
tions beyond 4096 
bytes from the pro- 
gram base 

PS Used in 2nd file 

assignment statements 
to indicate that the 
expression has been 
calculated and that 
the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject of the second 
file statement 

PS Indicates that 4 byte 
alignment is required 
in the code at this 

point 

R,T,PS Replaces the keyword 
ALLOCATE 



ARRAY CROSS 
SECTION 



ASSIGN 



R,T 



R f T 



ASSIGN BYNAME R 



ATTRIBUTES R f T 



AUTOMATIC 



R,T 



BACKWARDS R 



BASED 



BEGIN 1 



BGPE 



BGNP 



T,PS 



PS 



PS 



Indicates the library 
calling sequence for 
VDA or controlled 
storage 



Provides space to 
allow insertion of 
argument conversion 
triple 



Replaces keyword AREA 

Marker used by phases 
GK and GP to indicate 
he start of a func- 
tion argument 

Replaces the PL/ I •*• 
used to specify an 
array cross section 

Marker which precedes 

an assignment 
statement 

Precedes an assign- 
ment statement with 
the BY NAME option 

Marker which precedes 
a dictionary entry 
containing the attri- 
butes which have been 
specified on an OPEN 
or CLOSE statement 

Replaces the keyword 
AUTOMATIC 

Bit string format 
item 

Replaces keyword BAC- 
KWARDS BEGIN 

Replaces keyword 

BASED 

Triple which ter- 
minates the BEGIN 
block triples 

Indicates the end of 
the complete prologue 
for a begin block 

Indicates the start 
of code for a BEGIN 
block with no 
prologue 
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BGNP' 



PS Indicates the end of 
code for a begin 
block with no 
prologue 



BIT ATTRIBUTE R 



BIT CONST 



BINARY 



BLBS 



BLBS f 



BUFFERED 



BUILTIN 



BUY 



PS 



PS 



R 



T f PS 



BUY T 

ASSIGNMENT 



BUYB 



BUY CHAMELEON T 



BUYS 



T, PS 



Replaces the keyword 

BIT 

Marker preceding a 
BIT string constant 

Replaces the keyword 
BINARY 

Indicates the start 
of the prologue for a 
BEGIN block 

Indicates the end of 
the prologue for a 
BEGIN block 

Replaces keyword 
BUFFERED 

Replaces the keyword 
BUILTIN 

Code byte or triple 
which indicates that 
a temporary variable 
is required 

Triple which indi- 
cates assignment to a 
temporary variable, 
and which implies 
that the workspace 
for the temporary 
variable must be 
obtained before the 
assignment 

Triple or code byte 
which indicates that 
a scalar temporary is 
required for an 
aggregate argument to 
a generic scalar 
built in function 

Marker which indi- 
cates that workspace 
is required for a 
temporary variable of 
chameleon data type 
i.e. the data type 
is taken from the 
expression assigned 
to the variable 

Code byte or triple 
which indicates that 
a temporary variable 
is required, and that 
initialization code 
exists between this 



BY 



BY 1 



R f T 



BY NAME R 

C R f T 

c . T 

CALL R,T 

CALL ' T 

CELL R 



CHAR R 

ATTRIBUTE 

CHAR CONSTANT R 



CHECK 



CHSM 



PS 



CL 
CLN1 

CLN2 

CLOSE 

CN 



R # T f PS 
T 



T 



R f T 



R # T f PS 



CNVC1,— 4 PS 



triple and the BUY 
triple 

Replaces the keyword 
BY 

Triple which indi- 
cates the end of a BY 
expression 

Replaces the keyword 
BY NAME 

Complex decimal for- 
mat item 

Triple which indi- 
cates the end of a C 
format item 

CALL statement marker 

Triple internal to 
phase IA which marks 
the end of a CALL 
statement 

Replaces the keyword 
CELL 

Replaces the keyword 
CHARACTER 

Marker preceding a 
character string 
constant 

Replaces the keyword 
CHECK 

A special offset 
marker. Used only in 
absolute code to ind- 
icate that the offset 
may require changing 

Compiler label marker 

Compiler label number 
triple f referred to 
once only in the cur- 
rent statement 

Compiler label number 
triple, referred to 
at any point 

Replaces the keyword 
CLOSE 

Compiler statement 
number. Can precede 
compiler inserted 
statements 

Convert compiler 

functions 

l=Drop all registers 
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2=Drop target 
register 
3=Drop source 
register 
4=Do not drop 
register 



CONTROL 
VARIABLE 



R f T 



CONVERSION R 



Marker which indi- 
cates the control 
variable of a DO loop 



Replaces the keyword 
CONVERSION 



COL R,T 



COMA 



COMPLEX 



COMPILER 
ASSIGN 

COMPILER 
FUNCTION 



COMPILER T 
FUNCTION 1 



COMPILER T 
FUNCTION CALL 



COMPILER T 
FUNCTION CALL 1 



COMPILER T 
FUNCTION COMMA 



COMPILER T 

PSEUDO-VARIABLE" 



COMPILER T 
PSEUDO- VARIABLE 



COMR 



CONDITION R 



CONTROLLED R 



Replaces the keyword 
COLUMN 

Triple indicating an 
individual subscript 
in a subscript list 

Replaces the keyword 
COMPLEX 

Code byte or triple 
indicating assignment 

Code byte or triple 
used to indicate the 
start of a compiler 
function call argu- 
ment list 

Triple indicating the 
end of a compiler 
function argument 
list 

Code byte or triple 
used tc indicate the 
start cf a compiler 
function call argu- 
ment list 

Triple indicating the 
end of a compiler 
function call argu- 
ment list 

Triple used to indi- 
cate the argument of 
compilcir function, or 
Pseudo-Variable 

Triple indicating the 
end of a compiler 
pseudo-variable argu- 
ment list 

Code byte or triple 
used to indicate the 
start of a compiler 
pseudo-variable argu- 
ment list 

Triple indicating an 
individual subscript 
held in a register 

Replaces the keyword 
CONDIT ION 

Replaces the keyword 
CONTROLLED 



COPY 



R f T Replaces the keyword 
COPY 



CONTROL T 
VARIABLE' 



DATA R r T 

DATA 1 T 

DATA LIST DO R 



DCF2 



PS 



DECIMAL 



DECLARE 



DEFINED 



R 



DEFINED T 
SUBSCRIPT 



DELAY 



DELETE 



DICTIONARY T 
REFERENCE 



DIRECT 



DISPLAY 



Triple which indi- 
cates the end of a 
control variable 
expression 

Replaces the keyword 
DATA 

Triple indicating the 
end of a data 
directed I/O list 

Replaces the keyword 
DO in an iterative 
clause in a data list 

Causes output of 
"ERROR STOP 1 and the 
four bytes following 
in the pseudo-code 
item 

Replaces the keyword 
DECIMAL 

Replaces the keyword 
DECLARE 

Replaces the keyword 
DEFINED 

Marker which precedes 
the parenthesized 
iSUB subscript list 
of a defined array 



R,T Replaces the keyword 
DELAY 

R f T Replaces the keyword 
DELETE 



DO 



Marker indicating 
that the following 
two bytes contain a 
symbolic dictionary 
reference 

Replaces the keyword 
DIRECT 

Replaces the keyword 
DISPLAY 



R,T Replaces the keyword 
DO f in a non- 
iterative DO group 
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DO EQUALS 



DROB 



DROP 



DROP 



R f T Marker which replaces 
the PL/I'^ in the 
iterative DO state- 
ment (DO 1= ) 

PS Indicates to the reg- 
ister allocation 
phases that a base 
register used for 
addressing a con- 
trolled variable 
should be dropped 

T Triple used in opti- 
mization indicating 
the drop of an index 
register 

PS Indicates that a sym- 
bolic or assigned 
register in the 
operand field of the 
instruction is no 
longer required 



END LIST MARK R 



END PROG 



R f T,PS 



END PROGRAM2 T,PS 



ENTRY 



EPRM 



PS 



Marker used by phases 
GK and GP to indicate 
the end of a function 
argument list 



Marks the end of 
program 

Triple which marks 
the end of the second 
file text i.e. pro- 
logue initialization 
text, which is placed 
after the source pro- 
gram text 

Replaces the keyword 
ENTRY 

Indicates the start 
of an external 
library calling 
sequence (Section 4) 



DRPL 



E 


R,T 


EDIT 


R r T 


EDIT 1 


T 



EIO 



PS Indicates the end of EPRM' 
the use of a list of 
symbolic registers 
which have appeared 
in an USSL item EQU 

Floating decimal for- 
mat item 

Replaces the keyword 
EDIT 

Triple indicating the 

end of an edit EQU" 

directed I/O list 

T Code byte or triple 
which indicates the 
end of an I/O ERROR 

statement 



PS 



PS 



PS 



Indicates the end of 
an external library 
calling sequence 

Indicates that the 
two byte operand 
field contains a 
label. The label is 
considered to be 
attached to the fol- 
lowing pseudo-code 
item 

As for EQU, but indi- 
cates that control 
may enter from a dif- 
ferent statement. 

Replaces the keyword 
ERROR 



ELSE 



END 



R r T Replaces the keyword 
ELSE 

R,T Replaces the END key- 
word at the end of a 
BEGIN or PROCEDURE 
block 



ERROR 



END BLOCK 


R,T # 


Indicates the end of 
a text block 


END DO 


R,T 


Replaces the END key 



ENDFILE 
END ITDO 



R,T 



word at the end of a 
non- iterative DO 
group 

Replaces the keyword 
ENDFILE 

Replaces the END key- 
word at the end of an 
iterative DO loop 



ERROR 



EVENT 



EXCLUSIVE 



EXIT 



EXTERNAL 



T Code byte or triple 

which marks the posi- 
tion of an erroneous 
source statement 
which has been 
deleted 

PS Indicates the pres- 
ence of a source pro- 
gram error 

R r T Replaces the keyword 
EVENT 

R Replaces keyword 
EXCLUSIVE 

R f T Replaces the keyword 
EXIT 

R Replaces the keyword 
EXTERNAL 
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R,T Fixed decimal format 
item 



FORMAT LIST R r T Precedes a format 

list 



F' 



Triple which indi- 
cates the end of an F 
format item 



FORMAT LIST 1 



Triple indicating the 
end of a format list 



F COMMA 



FILE R,T 



FILE' 



FINISH 



FIXED 



FIX BINARY R 
IMAGINARY 



FIX BINARY R 
REAL 



FIX DECIMAL R 
IMAGINARY 



FIX DECIMAL R 
REAL 



FIXED 
OVERFLOW 

FLOAT 



FLOAT BINARY R 
IMAGINARY 



FLOAT BINARY R 
REAL 



FLOAT DECIMAL R 
IMAGINARY 



FLOAT DECIMAL R 
REAL 



Triple used to indic- 
ate the arguments of 
a function- or pseudo 
variable 

Replaces the keyword 
FILE 

Triple indicating the 
end of a file list 

Replaces keyword 
FINISH 

Replaces the keyword 
FIXED 

Marker which precedes 
a fixed binary 
imaginary constant 

Marker which precedes 
a fixed binary real 
constant 

Marker which precedes 
a fixed decimal 
imaginary constant 

Marker which precedes 
a fixed decimal real 
constant. 

Replaces keywords 
FIXED OVERFLOW 

Replaces the keyword 

FLOAT 

Marker which precedes 
a float binary 
imaginary constant 

Marker which precedes 
a float binary real 
constant 

Marker which precedes 
a floac decimal 
imaginary constant 

Marker which precedes 
a float decimal real 
consta at 



FREE 



FROM 



FUNCTION 



FUNCTION 



GENERIC 



GET 



GOOB 



GOLN 



GOTO 



IDENT 



IF 



IF f 



IGN 2. .8 



IGNORE 



R f T,PS Replaces the keyword 
FREE 

R f T Replaces the keyword 
FROM 

T Code byte or triple 
indicating the start 
of a function argu- 
ment list 

R Marker which precedes 
the parenthesized 
argument list (if 
present) of an entry 
name in a function 
reference or CALL 
statement 

R Replaces the keyword 
GENERIC 

R f T Replaces the keyword 
GET 

R f T GOTO out of block 
statement marker 

T Indicates a branch to 
a label number 

R r T GOTO in block state- 
ment marker 

R,T Replaces the keyword 
IDENT 

R f T Replaces the keyword 
IF 

T Triple which ter- 
minates an IF 
expression 

Ignore markers used 
by Final Assembly 
when code has been 
made redundant. The 
final digit indicates 
length to be ignored. 

R f T Replaces the keyword 
IGNORE 



FORMAT 



FORMAT" 



R,T Replaces the keyword 
FORMAT 

T Triple which marks 
the end of a remote 
format statement 



IGNORE 



PS Pseudo-code item 

which indicates that 
the number of bytes 
appearing in the 
length count must be 
ignored 
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IN 



JR/T 



Replaces the keyword 
IN 



LABEL 



Replaces the keyword 
LABEL 



INITIAL 



INITIAL LABEL R 



INITVAR 



INPUT 



INST 



INTEGER 



INTERNAL 



INTO 



IPRM 



1TDO 



ITDO 1 



JMP 



PC 



R 



R r T 



PS 



R,T,PS 



T # PS 



Replaces the keyword 
INITIAL 



Marker which precedes 
elements of arrays of 
labelvariables which 
are initialized by 
being attached to 
statements 

Replaces the keyword 
INITIAL( iteration 
factors) 

Replaces keyword 
INPUT 

Defines a store 
generated by register 
allocator which may 
be deleted by phase 
TF if unused 

Marker which precedes 
an internal binary 
integer constant 

Replaces the keyword 
INTERNAL 

Replaces the keyword 
INTO 

Indicates the end of 
an internal library 
calling sequence 

Replaces the keyword 
DO in an iterative DO 
loop 

Triple which ter- 
minates an iterative 
DO expression 

Triple indicating the 
presence of pseudo- 
code. The number of 
bytes of pseudo-code 
is specified in the 
first operand 



LEFT 

LIKE 

LINE 

LINESIZE 

LIST 

LIST' 

LIST MARK 



LITERAL 


R f ' 


CONSTANT 




LOCATE 


R t ' 


MAIN 


R 


MDRP 


PC 



MULTIPLE 
ASSIGN 



MVCL 



NAME 



£EY R r T 


Replaces 
KEY 


the keyword 




£EYED R 


Replaces 
KEYED 


keyword 


NEW PAGE 


SEYFROM R r T 


Replaces 
KEYFROM 


the keyword 


NOCHECK 


KEYTO R,T 


Replaces 


the keyword 


NO SNAP 



KEYTO 



Triple indicating a 
temporary result for 
a pseudo-variable 



R Replaces the keyword 
LIKE 

R # T Replaces the keyword 
LINE 

R # T Replaces the keyword 
LINESIZE 

R f T Replaces the keyword 
LIST 

T Triple indicating the 
end of a list 
directed I/O list 

T Marker used by Phases 
GK and GP to indicate 
the start of function 
argument list 

Indicates that the 
following two bytes 
contain a fixed 
binary constant 

Replaces the keyword 
LOCATE 



Replaces keyword MAIN 

Defines a register 
which will be multip- 
ly dropped. Phase RA 
no-ops all DROP'S for 
this register except 
the last 



R f T Marker indicating 

multiple assignment 
(Replaces PL/I', f ) 

PC Defines a character 

move greater than 256 
bytes. This is 
expanded by phase QF 

R Replaces the keyword 
NAME in the context 
of ON NAME 

R Replaces the keyword 
NEW PAGE 

R Replaces the keyword 
NOCHECK 

R # T Replaces the keyword 
NOSNAP 
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NOSNAP f 



Triple ^hich indi- 
cates the end of a 
NOSNAP list 



PCBS 



PS Indicates the end of 
the complete prologue 
for a procedure block 



NULL 



R f T 



NULL-FUNCTION T 



OFFSET 



OPEN 



R 



R f T 



OFS 



ON 



R,T 



OPTIONS 



ON RECORD R 



Null statement marker PCC 



Enables TMPD § s to be 
passed in text by 
phases LB and LG 
before the evaluation 
phase IS 



PS 



PFMT 
PICTURE 

PINS 

PLBS 



ReplacciS the keyword 
OFFSET 

Replaces the keyword 
OPEN 

Triple indicating 
offset used in opti- 
mization of DO loops 



Replaces the keyword 

ON PLBS • 

Replaces the keyword 
OPTIONS 

Replaces the keyword 

RECORD in the context POINTER 

ON RECORD 



PS 
R 

PS 

PS 



PS 



Follows a PROC or 
BEGIN marker. Used 
to carry the prefix 
change byte for the 
block. 



PICTURE format 

Replaces the keyword 
PICTURE 

Indicates the prolo- 
gue insertion point 

Indicates the start 
of the prologue for a 
procedure block which 
is common to all 
entry points 

Indicates the end of 
the prologue of a 
procedure block which 
is common to all 
entry points 

Replaces the keyword 
POINTER 



OSM1 



OSM2 



OSM3 



PS Indicates that the 
two byte operand 
field contains an 
index register 

PS Indicates that the 
two byte operand 
field contains a lit- 
eral cffset 

PS Indicates the pres- 
ence of a literal 
offset and an index 

register 



PRECISIONl 



PASS 



PS 



PAGES! ZE 



POINTER Assignment 



PRECIS I0N2 R 



PRINT 



OUTPUT 


R 


Replaces keyword 
OUTPUT 


PRIORITY 


OVERFLOW 
P 


R 
AR f T 


Replaces keyword 
OVERFLOW 

Picture format item 


PSEUDO- 
VARIABLE 


pi 


T 


Triple which indi- 
cates the end of a P 
formal- item 


PSEUDO- 
VARIABLE 


PAGE 


R,T 


Picture format item 




PAGESIZE 


R f T 


Replaces the keyword 


PSEUDO- 



R 



R,T 



VARIABLE' 



Indicates a precision 
which has been writ- 
ten in the source 
program as , (10) , f 
which may be either 
fixed or float 

Indicates a precision 
which has been writ- 
ten in the source 
program as • (5 # 2) f 
which implies fixed 

Replaces keyword 
PRINT 

Replaces the keyword 
PRIORITY 

Marker which precedes 
the parenthesized 
argument list to a 
pseudo-variable 

Code byte or triple 
indicating the start 
of a pseudo-variable 
argument list 

Triple indicating the 
end of a pseudo- 
variable argument 
list 
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PSLD 



PS 



PROC 



PROC* 



PTCH 



R,T PS 



T.PS 



PUT 



READ 



REAL 



RECORD 



RECURSIVE 



R,T 
R,T 
R,T 
R 



REENTRANT 


R 


REPLY 


R,T 


RETURN 


R,T 


REVERT 


R,T 


REWRITE 


R r T 


RPL 


T 



RPL 1 



Indicates a pseudo- 
code instruction for 
use by the final 
assembly listing 
phase 



Replaces the keyword 
PROCEDURE 

Triple which ter- 
minates the procedure 
block triples 

Patch triple. Used 
by optimization phase 
to overwrite a triple 
in text at a point 
where code is to be 
inserted. The code 
to be inserted and 
the overwritten tri- 
ple are held in a 
table in text blocks 

Replaces the keyword 
PUT 

Remote format state- 
ment marker 

Replaces the keyword 
READ 

Replaces the keyword 
REAL 

Replaces the keyword 
RECORD 

Replaces the keyword 
RECURSIVE 

Replaces the keyword 
REENTRANT 

Replaces the keyword 
REPLY 

Replaces statement 
marker 

Replaces the keyword 
REVERT 

Replaces the keyword 
REWRITE 

Code byte or triple 
indicating the start 
of a format list 
replication factor 
expression 

Triple indicating the 
end of a format list 
replication factor 
expression 



RWA 



SECONDARY 



SECOND LEVEL 
MARKER 



PS Indication of an 

addressing vector for 
use by the register 
allocator when the 
number of symbolic 
registers in use 
exceeds the amount of 
work space which has 
been allocated 



Replaces keyword 
SECONDARY 



SELL 

SET 

SETS 

SEQUENTIAL 

SIGNAL 

SIZE 

SKIP 

SL 

SN 

SN2 

SN3 



A code byte which 
immediately precedes 
all code bytes 
appearing in the 
second level table 



T,PS Code byte or triple 
which indicates that 
a temporary variable 
is no longer required 

R,T Replaces the keyword 
SET 

R Replaces the keyword 
SETS 

R Replaces the keyword 

SEQUENTIAL 

R,T Replaces the keyword 
SIGNAL 

R Replaces the keyword 
SIZE 

R f T Replaces the keyword 
SKIP 

R f T,PS Statement label mark- 
er. Precedes all 
labelled statements 

R,T f PS Statement number 

marker. Precedes all 
unlabelled statements 

R,T,PS Marker which precedes 
a second file state- 
ment (see Section 4) 

PS Indicates the start 
of a second file 
statement which is 
concerned with 
initializing array, 
or structure, or 
string dope vectors. 
Similar to SN2 (Sec- 
tion 4) except that 
there is no asso- 
ciated entry 
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SNAP 1 



STATIC 



STERLING R 
DECIMAL REAL 



STOP 



R f T 



Triple which indi- TITLE 
cates the end of a 
snap list 

Replaces the keyword TMPD 
STATIC 

Marker which precedes 
a sterling decimal 
constant TO 

Replaces the keyword 

STOP 



R f T Replaces the keyword 
TITLE 



Triple indicating a 
temporary expression 
result 



R f T Marker replacing TO 
in the iterative DO 
statement 



STREAM 



STRING 



STRING 1 



R Replaces keyword 
STREAM 

R r T Replaces the keyword 
STRING 

T Triple indicating the 
end of a string list 
used with list 
directed I/O 



TO" 



TRANSMIT 



UNBUFFERED 



Triple which indi- 
cates the end of a TO 
expression 



Replaces the keyword 
TRANSMIT 

Replaces the keyword 
UNBUFFERED 



STRINGRANGE R 



Replaces the keyword 
STRING 1RANGE 



UNDEFINEDFILE R 



Replaces the keyword 
UNDEFINEDFILE 



SUB 



SUBSCRIPT R,T 



SUBSCRIPT" 



SUBSCRIPT- R 
RANGE 

SSB f T 



SSUB 



SYSTEM 



SYSTEM 1 



TASK 



THEN 



R # T 



R,T 
R r T 



Replaces the keyword 
SUB used in iSUB 
DEFINING marker pre- 
ceding a BIT 

Marker which precedes 
the parenthesized 
subscript list of an 
array 

Triple indicating the 
end of a subscript 
list 

Replaces keyword SUB- 
SCRIPT RANGE 

Supers ubs prime tri- 
ple. Similar to 
SUBS 1 . Used by Opti- 
mization phases in 
conjunction with SSUB 

Supersubs triple. 
Similar to SUBS. 
Used by Optimization 
phases 

Replaces the keyword 
SYSTEM 

Triple which indi- 
cates the end of a 
systera list 

Replaces the keyword 
TASK 

Replaces the keyword 
THEN 



UNDERFLOW 



UNLOCK 



UPDATE 



USES 



USNG 



USSL 



VARYING 



WHILE 



WHILE* 



WRITE 



R,T 



PS 



PS 



R,T 



R f T 



X R f T 

ZERODIVIDE R 



Replaces keyword 
UNDERFLOW 

Replaces the keyword 
UNLOCK 

Replaces keyword 
UPDATE 

Replaces the keyword 
USES 

Indicates the pres- 
ence of an assigned 
register 

Indicates a list of 
symbolic registers 
which need not be 
saved on branch and 
branch and link 
instructions 

Replaces the keyword 
VARYING 

Replaces the keyword 
WHILE 

Triple which indi- 
cates the end of a 
WHILE expression 

Replaces the keyword 

WRITE 

Spacing format item 

Replaces the keyword 
ZERODIVIDE 
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APPENDIX B: COMMUNICATIONS REGION 



The communications region is an area specified by the control routines (see Appendix H) # 
and used to communicate necessary information between the various phases of the compiler. 

The communications region is resident in the first dictionary block throughout the 
compi lati on. 

Notes The use of the communications region during compile-time processing is described 
in Appendix F. 

The tables below give the following information for each location of the communica- 
tions regions name of location; offset (i„e. r relative address); use (i.e., stages of 
compilation during which the location is in use) ; and a description of the contents. 
Certain locations are used in one capacity during part of the compilation, and then re- 
used in a different capacity during another part of the compilation. In these cases, one 
location will have two table entries: details of alternative usage appear in the columns 
headed Name a , Use a , etc. 



Table 2. Communications Region (Part 1 of 2) 

._- . — . . — T - — . — 



r . . T . .... >_„ T - 

| Name | Offset (Dec.) I 

h 



Use 



Description 



SAVED 
SAVE1 
SAVE2 



SAVEO+4 
SAVED +8 ETC* 



SAVE15 


| SAVEO+60 


ZTV 


64 


ZTRAN1 


68 


ZTRAN2 1 


ZTRANl+4 


ZNXTD 


76 


ZERRD 


80 


ZERRS 


ZBRRD+4 


ZERRW 


ZERRD+8 


ZERRC 


ZERRD* 12 


ZDNXT 


ZERRD+16 


ZSNXT 


ZDNXT+4 


ZWNXT | 


ZDNXT+8 


ZCNXT 


ZDNXT+12 


ZMYNAM 


112 


DICTP 


116 


ZCNCHR 


118 


ZPROCH 


120 


ZSTAT | 


124 


PARI 


128 


PAR2 I 


PARI +4 ETC 



PAR8 1 


PAR1+2 8 


CORLFT 


160 


LKNAME 


164 


ZOBSAD 


172 


TERMSW 


176 


OFDNAM | 


178 


SPLNAM 


180 


ZOBNUM 


182 


SCNOP | 


184 



ALL PHASES 
ALL PHASES 
ALL PHASES 



ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 



ALL 


PHASES 


ALL 


PHASES 


PHASE 


VE 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 


ALL 


PHASES 



L 



Register save area 
Register save area 
Register save area 



Register save area 

Control phase base 

External to internal translate table 

Internal to external translate table 

Next available dictionary location 

First locations of error chains 



Current ends of error chains 



Name of last phase entered 



Source column containing control 

character 

Chain of created procedures 

Current statement number 

Parameter word 1 

Parameter word 2 



Parameter word 8 

Amount of core left for compilation 

Member name of module produced by 

compilation 

Address of overflow block 

Compilation terminating switch 

Name of phase in control when 
spill file is opened 
Overflow block number 
Phase directory scan switch 
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Table 



r _ T 

| Name | 
H + 

SCCNF 

ZDROLF 
AREA 

ZM91 I 

PERRSW 

BERSW 

IOERSW 

ZPAGE 

ZLINE 

ZOPT 

PARMLEN 

MAXFON 

ZDICTSP 

ZNXTOF 

FONOF 

FSTDRF 

ERCODE 
MCSIZE 
CCCODE 

HDR 

TLR 

TRT 

ARINT 

BR2 

STARTX 

DICTSZ 

TXTSZ 

RDSIZE 

INCOD 

ARMASK 

LOCK 

ZNXTLC 

ZSHIFT 

ZMASK 

ZMASK1 

ZSOR 

ZMAG 

CCCODEE 

ZCOMM 



Communications Region (Part 2 of 2) 

. . T 

Use | 



Offset (Dec.) | 

185 
186 
187 

188 
189 
190 
191 
192 
194 
196 

197 

198 

200 
204 
208 

212 

224 
228 
232 

236 
240 
244 
248 
252 
256 
260 
264 
268 
272 
273 
274 
276 
280 

284 
ZMASK + 2 
288 
290 
292 
304 






Description 



ALL PHASES 
ALL PHASES 
ALL PHASES 



j\LL 
ALL 
j\LL 
^L 
AT.T. 
KLL 
KLL 

ALL 

ALL 

ALL 
ALL 
ALL 

ALL 

ALL 
ALL 
ALL 

ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 

ALL 
ALL 
ALL 
ALL 
ALL 
ALL 



PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 

PHASES 

PHASES 

PHASES 
PHASES 
PHASES 

PHASES 

PHASES 
PHASES 
PHASES 

PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 

PHASES 
PHASES 
PHASES 
PHASES 
PHASES 
PHASES 



On if in second half of compiler 
Overlay switch 
Code word for dummy routines 
(phase AD) 

(used for Model 91 systems) 
Print error switch 
♦process error byte 
I/O error switch 
Number of lines in page 
Number of characters in a line 
Code word of loading of optimizing 
phases 

Length of options field in * - process 
card 

Number of offset slots in a dictionary 
block 

Useful dictionary block size 
Offset of next dictionary entry 
Offset of offset slots in dictionary 
block 

Dictionary reference of last diction- 
ary entry 

Error message codes 
M/CSIZE this run 
Compiler option indicators 
(see table 5 below) 
Address of phase directory 
Timer last read 
Total run time 
Arithmetic interrupt 
Second base for control phase 
Start of text 
Dictionary block size 
Space available in text block 
SIZE of read area 
Interrupt code 
Arithmetic error mask 
Dictionary lock slot 
End of current text 

Number of bits in dictionary reference 
offset 

Mask to remove block numbers 
Mask to remove offset 
Input record source 
Input record margin 
Compiler option indicators 



H 
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Table 3. Communi cations Region (Part 


1 of 2) 










r wl _ m __ T „„_ T „ T , ..^ _ _„„ ___ mi ^ _. _ . . ._ _ ^ 


r ~i 


r — - 


- — — T - _ _ 1 




Dec. | Use 






Use 2 




| Name 


\ Offi. nf- I •» - - - - .. J 


Description 


Name 2 






Description^ j 


vULOCL |" — "1" ' .11. 


1 i '■' ' i 


j. _ 

1 ZCALLC 


| Start J End 


_ j 





Start 


| End 



1 


r~~ T t 1 " ' " 1 

ZCOMM+ OJRead in [BCD to 


r — 1 
Start of CALL 







1 (Diet. Ref. 


chain 










I ZLABTB 


+ 4 [Read in (Initial 


Start of label 
chain 










(ZATTID 


+8| | 


Pointer to 
attribute 
tidy-up area 


ZPCOP 








[ZALLCH 


+ 12 | Read in | ALLOCATE + 
j (Attribute 


Start of 
ALLOCATE chain 










1 ZFLAG1 


+16 (Read in (Dictionary 


Flag bytes, 










1 ZFIAG2 


+17 1 | 


mainly used 










(ZFLAG3 


+ 18| | 


for optional 










| ZELAG4 


+19 1 | 


phase 










(ZFLAG5 


+ 20 1 j 


marking (see 


ZSYSOT 


Pseudo 


Pseudo 


Diet. Ref. j 






Table 4 below) 




code 


code 


SYSOUT | 


| ZFLAG6 


+21|FU IQU 


Unaligned 
(see Table 4) 










(UNUSED 


+ 211 1 

TO( | 
+ 23| | 












| ZSCRCH 


+24|PD (PL 


Address of 
scratch core 
kept across 
phases 










| UNUSED ; 


+ 25| | 

TO| j 

+ 27 1 ( 












|ZHASH 


+ 28 j Dictionary | Dictionary | 


Start of hash 
table 


ZINCL 


PC. 


End 


INCLUDE card | 
pointer | 




+32 (Not used (Not used | 




ZEQTA3 


Final 


Assy. 


Assigned j 
offset table | 


I ZFATTB 


+36 j Dictionary [Declare | 


Start of fact- 


ZLCONS 


Strge 


Alloc 


Last constant | 




1 IP 3213 2 


ored attribute 


ZEOCS ; 






in STATIC. | 
End of STATIC j 


| ZCDIMC | 


+40 j Dictionary | Pre- 


Start constant 


ZSMREG| 


Trans- 


Pseudo 


Current sym- j 




| (translatori 


dimension 




lator 


code 


bolic registerj 


[Z2FILE| 


+ 44 j Dictionary ( End 


Start of 
second file 










(ZDLFST] 


+48 | Dictionary | Storage 


Defined 


ZFSTEX 


Strge 


End 


First external j 




j (allocator 


storage area 




alloc 




item | 


)ZDCBLD| 


+ 52 | Dictionary | Dictionary 


Dictionary 
build area 


ZPRSIZ 


Final 


Assy. 


(Size of com- | 
piled program | 


| ZMPSTK i 


+ 56 j Dictionary j Translator 


Program map 
stack 


ZSICSZ 


Final 


Assy. 


STATIC | 
INTERNAL size j 


| ZUPIC 


+60 (Dictionary (Picture 
| (processor 


Start of 
picture chain 


ZSTALC 


Final 


Assy. 


Storage loc- | 
at ion counter | 


(ZPROCl 


+ 64 j Dictionary | End 


Start of entry 
type 1 chain 










| ZSTACH 


+ 68 j Dictionary | End 


Start of STAT- 
IC chain (6) 










I ZVDIMC 


+74 j Dictionary j Translator 


Start of vari- 
able dimension 
chain 










| ZCONCH 


+78 | Dictionary | ALLOCATE 


Start of con- 
stants chain 










| ZDEFCH 


+80 | Dictionary [ Dictionary 


[Chain of 
defined items 


ZCITEM 


Pre 
trans . 


End 


Chain of CON- ( 
[TROLLED items | 


| ZLIKCH 


[ +82 (Dictionary (Dictionary 


[Chain of LIKE 
; items 


iZEQMAX 


Pseudo 

|code 


End 


Max. label j 
| number j 


1 - 


1 X J. J 


L . J 


L J 


L J 


L 


L _ - J 
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T 1 

Description^ 




ZPOLCH 



ZDCOM1 



ZDC0M2 



ZDSA 
ZCPOFF 



+ 84 



ZCOMM+86 






+ 90 



ZCOMM+94 

ZCOMM 
+ 100 



MACRON 


| ZCOMM 




+ 336 


SOURCN 


ZCOMM 




| +338 


STMNTN 


| ZCOMM 




+ 340 


INSTRN 


ZCOMM 




| +342 


BYT ESN 


| ZCOMM 




| +344 



Use 



Start 



i 



End 



Dictionary 



Dictionary 
Dictionary 



PA 

PD 

BW 
CI 
CI 
TJ 
TO 



Dictionary 

Dictionary 
Dictionary 



UD 
UA 

TP 
TP 
TP 
TP 
TP 



Description 



Chain of POOL 
items 



Latest 
diet. ref. 



Flags for dic- 
tionary build 
interface 
(8 bytes) 
Head of STATIC 
DSA chain 
Offset of 
first 

constants pool 
within static 
internal. 
Macro reqd 
count 
(half word) 
Source reqd 
count 
Chalfword) 
Source stmt 
count 
Chalfword) 
Object instn 
count 
Chalfword) 
Object byte 
count 
C full word) 
|. j — . i . i. — ._„ . — i„. . x x ,„x x , . . 

Note : Bytes ZCOMM+60 to ZCOMM+332 are used internally within the Read- in phase and 
cannot be assumed to be zero at exit from that phase. 
Bytes ZCOMM+336 to ZCOMM+344 are not available for re-use. 

Bytes ZCOMM+104 to ZCOMM+131 are used by the generic phase IM. They are cleared 
before exit from the phase. 



Name, 



ZOSMRG 



ZCOBOL 



Use- 



Start 



End 



Pseudo 
code 



GB 



Pseudo 
code 



JI 



End of 
optimization 
symbolic reg- 
isters 

Head of COBOL 
structure 
chain 
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Table 4. Communications Region, 
r T T T 



Bit Usage in Z FLAGS 

T . . — . .. 



| Byte 


Offset 


Bit 


Bit Name 


Description 


| Name 




(Hex) 




Bits are set on, on encounter ing:- 


t H 




h —\ 





|. . ._ . _. 


| ZFLAGl 


ZCOMM+16 


80 i 


ZDEFFL 


DEFINED attribute 






40 


ZAWAFL 


ALLOCATE statement 






20 | 


ZSECFL , 


Second File statement 






10 


ZDIMFL 


Dimension attribute 






08 


ZCHKFL 


CHECK/NOCHECK prefix 






04 


ZONFL 


ON r SIGNAL or REVERT statement 






02 | 


ZSTRFL 


Structure 






01 


ZDECFL 


DECLARE statement 


1 ZFLAG2 


+17 


80 


ZLIKFL 


LIKE attribute 






40 


ZINTST 


STATIC INITIAL 






20 


ZOPCFL 


OPEN/ CLOSE statement 






10 ! 


ZGTPFL 


GET/PUT statement 






08 


ZGOTFL 


GO TO statement 






04 


ZTEPFL 


TASK/EVENT/PRIORITY options, REPLY statement 






02 


ZPICFL 


PICTURE attribute/format item 






01 i 


ZISBFL 


iSUB defining 


| ZFLAG3 


+ 18 


80 


ZCONTG 


UNALIGNED (NONSTRING ) attribute 






40 


ZSETFL 


SETS attribute 






20 , 


ZOSSFL 


DELAY, DISPLAY, WAIT statement 






10 


ZARGFL 


Arg ume nt list 






08 , 


ZINLFL 


INITIAL Label 






04 


ZDIOFL 


, DATA directed I/O 






02 


ZRECIO 


RECORD I/O 






01 


ZINTAC 


AUTO/CTL initialization 


t ZFLAG4 


+19 


80 


ZFREE 


FREE statement 






40 


STM256 


More than 256 statements 






20 


FILEFL 


Files present 






10 




Spare 






08 


ZPUTFL 


PUT DATA 






04 


ZGETFL 


GET DATA 






02 j 


ZPTRFL 


Pointer Qualifier 






01 


ZRODFL 


STATIC DSA Entry 


| ZFLAG5 


+20 


80 


ZFTASK 


TASK/EVENT/PRIORITY option on a CALL statement 






40 


ZDENFL 


Set by FT 






20 


ALCSLM 


ALLOCATE, with second level marker 






10 




Spare 






08 




Spare 






04 




Spare 






02 




[ Spare 






01 




Spare 


I ZFLAG6 


+ 21 


80 
40 
20 
10 
08 
04 
02 
01 


ZUNAFL 


ON for unaligned data: set by FU 
i Spare 

Spare 

Spare 

Spare 
i Spare 

Spare 
, Spare 
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Table 5. Communications Region, Bit 

Usage in CCCODE. (Part 1 of 2) 



Table 5. Communications Region. Bit 

Usage in CCCODE. (Part 2 of 2) 



r~ T r — 

I Byte 1 Bit j 



1 





DUMP 


1 




wanted 
not wanted 




1 




1 


abort has occurred 




2 


LIST 


1 




not wanted 
wanted 




3 


LOAD 


1 




not wanted 
wanted 




4 


DECK 


1 




not wctnted 

wanted 




5 


EXTREF 


1 




not wanted 
wanted 




6 


XREF 


1 




not wanted 
wanted 


i 

1 1 


7 






ATR 



1 



1 




not wanted 
wanted 

means U- format 
means F- format 
records on input 




1 




1 


if track overflow 
is present 




2 




Severity code 




3 




Severity code 




4 




Severity code 




5 




Severity code 

where 0000=FLAGW 
0001=FLAGE 
0010=FLAGS 




6 


CHAR 48 


1 



not wanted 
wanted 




; 7 


i MACRO 


1 




not wanted 

wanted 



j j Byte j Bit j 







2 
3 



5 
6 



k + + 

STMT 



SOURCE 



CHK 



BCD 



1 not wanted 

wanted 

1 not wanted 

wanted 

1 BCD input 
EBCDIC input 



SOURCE2 1 wanted 

not wanted 

OPT 1 wanted 

not wanted 

1 AE required 

1 program check 
has occurred 

1 means first record 
has been read 



1 not wanted 
wanted 



MACDCK 



COMP 



1 





not wanted 
wanted 



NEST 



1 not wanted 

wanted 

1 macro phase now 

running 

1 batch record found 

batch record not 

found 

1 EOF record found 

EOF record not found 

not used requirement 

1 wanted 

not wanted 
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APPENDIX C: COMPILER OPTIONS TABLE 



Control module IEMTAF consists of a control section, IEMAF, containing a bit string field 
of fourteen bytes in length, followed by seven fixed-point values aligned on fullword 
boundaries (see Figure 15). The first five fixed-point values give defaults for the com- 
piler options LINECNT, SIZE, SORMGINL (start), SORMGINR (end), and CRGCNTL (control 
column) , respectively. The remaining two fixed-point values are spare and not currently 
in use. 

The SORMGINL, SORMGINR, and CRGCNTL settings of 9, 108, and 8, respectively, represent 
actual left and right margins of 1 and 100, and a carriage control column setting of 0. 
However, the first 8 bytes of each line in TSS must be reserved for a header containing 
the line number. Any changes in margin settings, including CRGCNTL, should take this 
fact into account, adding 8 to each setting desired. 

Bits to 25, 28 to 46, and 51 to 53 in the string are used to specify the default 
status of the options. Bits 54 to 102 in the string specify whether an option keyword is 
to be deleted (see Figure 16). A "1" in the bit string means "yes;* a "0" means "no." 
The remaining bits in the string are spare bits not currently in use. Figure 17 contains 
the PL/I defaults for TSS/360. 

Note ; Bits 28 through 30 are dummy settings for the syntax check option. Because the 
defaults for these options will differ depending upon the mode the user is in, the 
defaults are always set in module Fl. However, bits 28 through 30 cannot be treated as 
spare bits (due to a routine check of them by module AB during compilation) and must 
always be 0. 



IEMAF 



LINECNT 

SIZE 

SORMGINL 

SORMGINR 

CRGCNTL 



CSECT 

DC B" 

DC B" 

DC B" 

DC B" 

DC B" 

DC B" 

DC B" 



00000000 00000000" DEFAULT 
00000000 00000000" SWITCHES 
00000000 00000000" 



000000 j 00 00000000" DELETE 
00000000 00000000" SWITCHES 
00000000 00000000" 



0|0 00000000" 



SPARE SWITCHES 



DC F»50" 

DC F" 999999" 

DC F"9* 

DC F"108" 

DC F'0" 
DC F"0" 
DC F"0" 



•Figure 15. The IEMAF Control Section 
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I T 


I Bit | 

^ j 

I o 1 


Parameter 
ATR 


1 1 


NOATR 


I 2 


BCD 


1 3 


EBCDIC 


1 4 


CHAR60 


1 5 


CHAR48 


I ^ 


DECK 


1 ? 


NODECK 


1 ^ 


EXTREF 


1 9 


NOEXTREF 


| 10 


FLAGW 


1 11 


FLAGE 


1 12 


FLAGS 


| 13 


LIST 


| 14 


NOLIST 


I 15 


LOAD 


1 16 


NOLOAD 


I 17 


XREF 


| 18 


NOXREF 


| 19 


SOURCE 


| 20 


NOSOURCE 


I 21 


SOURCE2 


I 22 


NOSOURCE2 


1 23 


OPT=0 


| 24 


| OPT=l 


1 25 


OPT=2 


| 26 


i Not used 


| 27 


Not used 


1 28 


| SYNCHKE 1 - 


| 29 


SYNCHKS* 


| 30 


| SYNCHKT* 


| 31 


OPLIST 


| 32 


| NOOPLIST 


I 33 


STMT 


| 34 


| NOSTMT 


| 35 


i MACRO 


| 36 


| NOMACRO 


1 37 


| NEST 



T "~1 
1 Bit | 

+ ^ 

I 38 


Parameter 


NONEST 


1 39 | 


COMP 


| 40 


NOCOMP 


1 <*1 1 


M91 


t 42 


NOM91 


1 *+3 | 


MACDCK 


| 44 


NOMACDCK 


I 45 1 


EXTDIC 


| 46 ! 


NOEXTDIC 


| 47 


Not used 


| 48 ! 


Not used 


I 49 


Not used 


| 50 


Not used 


1 51 


DEFAULT/DELETE 




(BIT always 0) 


| 52 


LIB=REAL 


| 53 l 


LIB=COMPLEX 


| 54 


DELETE=ATR 


| 55 


DELETE=NOATR 


| 56 


DELETE=BCD 


1 57 


DELETE= EBCDIC 


1 58 


DELETE=CHAR6 


| 59 


DELETE=CHAR48 


| 60 


DELETE=DECK 


I 61 


I DELETE=NODECK 


| 62 


DELET£=EXTREF 


| 63 


i DELETE=NOEXTREF 


1 64 


DELETE=FLAGW 


1 65 


| DELETE= FLAGE 


1 66 


DELETE=FLAGS 


1 67 


, DELETE=LIST 


1 68 


DELETE=NOLIST 


| 69 


| DELETE=LOAD 


I 70 


DELETE=NOLOAD 


| 71 


| DELETE=XREF 


| 72 


DELETE=NOXREF 


| 73 


| DELETE=SOURCE 


| 74 


DELETE=NOSOURCE 



T 



T . 

Bit | Parameter 

75 | DELETE=SODRCE 2 

76 | DELETE=NOSODRCE2 

77 J DELETE=OPT 

78 | DELETE=LINECNT 

79 | DELETE=LINELNG 

80 | DELETE=SIZE 

81 | DELETE=SORMGIN 

82 | Not used 

83 | DELETE=STMT 

84 | DELETE=NOSTMT 

85 J DELETE= MACRO 

86 | DELETE=NOMACRO 

87 | DELETE=COMP 

88 | DELETE=NOCOMP 

89 J DELETE=M91 

90 I DELETE=NOM91 

91 | DELETE=PAGECTL 

92 | DELETE=MACDCK 

93 J DELETE=NOMACDCK 

94 | DELETE=EXTDIC 

95 I DELETE=NOEXTDIC 

96 J DELETE=OPLIST 

97 J DELETE=NOOPLIST 

98 | DELETE=NEST 

99 | DELETE=NONEST 

100 | DELETE=SYNCHKE 

101 J DELETE=SYNCHKS 

102 | DELETE=SYNCHKT 

103 | Not used 

104 | Not used 

105 | Not used 

106 | Not used 

107 J Not used 

108 J Not used 

109 [ Not used 

110 | Not used 

111 | Not used 



I | *See Note on preceding page. 






Figure 16. Bit Identification Table 
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| TSS 


Option 


| Default 






_ + 






Fixed Values 






LINECNT 


| 50 


SIZE 




(999999 


SORMGIN - left 




|9 


SORMGIN - right 




(108 


CRGCNTL 




|8 


Alternative Options 




ATR|NOATR 




| NOATR 


BCD | EBCDIC 




| EBCDIC 


CHAR60|CHAR48 




|CHAR60 


DECK | NODECK 




| NODECK 


EXTREF 1 NOEXTREF 




| NOEXTREF 


FLAGW | FLAGE I FLAGS 


| FLAGW 


LIST|tfOLIST 




| NOLI ST 


LOAD 1 NOLOAD 




[LOAD 


XREFJNOXREF 




| NOXREF 


SOURCE | NOSOURCE 




I SOURCE 


SOURCE2 | NOSOURCE2 


| SOURCE 2 


OPT=0 | OPT=l | OPT= 


=2 


|OPT=l 


M91|NOM91 




|NOM91 


MACDCK | NOMACDCK 




| MACDCK 


EXTDIC J NOEXTDIC 




| EXTDIC 


OPLIST | NOOPLIST 




| OPLIST 


STMT | NOSTMT 




| NOSTMT 


MACRO | NOMACRO 




| NOMACRO 


NEST | NONEST 




| NONEST 


Unused 






COMP | NOCOMP 




|COMP 


LIBRARY OPTION, 


REAL| f COMPLEX 


I 


SYNCHKE | SYNCHKS | 


SYNCHKT 


1 SYNCHKS 



Deleted Options 



M91 
NOEXTDIC 
L 

Figure 17. 



(conversational) 
SYNCHKT 
(nonconversational) 



PL/I Defaults- 
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APPENDIX D: CODE PRODUCED FOR PROLOGUES AND EPILOGUES 



The mechanism of dynamic storage management is described in the publication IBM System/ 
360 Time Sharing System, PL/I Subroutine Library Program Logic Manual . 

Part of the code reguired to implement the storage management is generated as prologue 
and epilogue code by the compiler. This Appendix contains annotated examples of prolo- 
gues and epilogues for PROCEDURE, BEGIN, and ON blocks. 

PROLOGUES AND EPILOGUES 

Example in PL/ I 

A:I: PROCEDURE CX f Y> ; 

DECLARE Y CONTROLLED; 



ON OVERFLOW C=0; 



B: BEGIN; 



END; 



AB:IJK: ENTRY(Y f Z) 



RETURN (EXPRESSION) 



END; 



A 


BC 


15 f 16 f (0, 15) 




DC 


All(l) 




DC 


C'A 1 


SIZDSA 


DC 


F* SIZE OF DSA' 


STATIC 


DC 


A (STATIC CONTROL 
SECTION) 




STM 


14, 11,12, (13) 




LR 


10,15 




BAL 


8,GETDSA(0 f 10) 


* 


MVI 


SWITCEU13) jX'Xl 1 


* 


BC 


15,COPRAM1(0,10) 


I 


BC 


15,10(0,15) 




DC 


ALK1) 




DC 


CI' 


ADPRIM 


DC 


A (A) 


♦ 


STM 


14,11,12(13) 




L 


10, ADPRIM (0,15) 




LA 


8,IP(0,10) 



BRANCH ROUND FOLLOWING CONSTANTS 

LENGTH OF BCD 

BCD OF ENTRY POINT 

ADDRESS OF STATIC INTERNAL CONTROL SECTION 
(ONLY COMPILED FOR EXTERNAL AND ON PROLOGUES) 
SAVE STANDARD REGISTERS IN SAVE AREA OF 
CALLER' S DSA 

SET UP FIRST PROLOGUE BASE 
CALL ROUTINE TO GET DSA 
INSERT RETURN (EXPRESSION) SWITCH 
(ONLY COMPILED IF THERE IS A RETURN (EXP) 
AND THE ENTRY LABELS HAVE DIFFERENT DATA 
ATTRIBUTES) 

BRANCH TO COPY OVER PARAMETERS 
BRANCH ROUND FOLLOWING CONSTANTS 
LENGTH OF BCD 
BCD OF ENTRY POINT 
FIRST PROLOGUE BASE ADDRESS 
SAVE STANDARD REGISTERS IN SAVE AREA OF 
CALLER'S DSA 

SET UP FIRST PROLOGUE BASE 
SET RETURN REGISTER 
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GETDSA 

* 


L 


11, STATIC (0,10) 




L 


0,SIZDSA(0,10) 


* 


L 


15,32, (0,11) 


* 


BALR 


14,15 




LR 


14,13 




LA 


0,7, (0,0) 




SR 


15,15 


LOOP 


A 


14,0(0,11) 




ST 


14, ADVEC+4 (15,13) 




LA 


15,4(0,15) 




BCT 


0,LOOP(0,10) 




BCR 


15,8 


IP 


MVI 


SWITCH(13) ,X , X2' 


COPRAM1 


L 


14,0(0,1) 




ST 


14,X(0,13) 




L 


14,4(0,1) 




LA 


0,10(0,0) 




SR 


14,0 




LH 


14,0(0,14) 




ST 


14,Y(0,13) 




L 


14,8(0,1) 




ST 


14, TARGET (0,13) 


4c 


L 


10,A...A(0,11) 




BAL 


8, COMMON (0,10) 


* 

* 


BCR 


15,10 


COMMON 

4 


MVI 


96(13), X'80 f 




BALR 


10,0 




LA 


9,ADDAREA(0,13) 



ST 



9,ADVEC(0,13) 



SET UP STATIC DATA POINTER (ONLY IN 
EXTERNAL PROCEDURES AND ON PROLOGUES) 
GR0=SIZE OF DSA 

LOAD GR15 WITH ENTRY POINT OF IHESADA 
(UNLESS DSA IS IN STATIC, WHEN ENTRY POINT OF 
COMPILER'S 'GET DSA' ROUTINE WILL BE LOADED) 
CALL ROUTINE TO GET A NEW DSA 
POINT GR14 AT NEW DSA 
SET LOOPING VALUE = 7 
CLEAR INDEXING REGISTER 
BUMP GR14 BY 4096 

STORE GR14 IN ADDRESSING VECTOR 
BUMP INDEX REGISTER 

BRANCH ON RETURN REGISTER 

INSERT RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 

STORE IN X IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 

POINT GR14 AT PSEUDO- REGISTER OFFSET OF 

ARGUMENT AND PICK IT UP 

STORE OFFSET IN Y IN DSA 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 FROM TRANSFER VECTOR SLOT 

FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 

BRANCH TO THE APPARENT ENTRY POINT 

FOR A 

SET DSA TASKING FLAG (ONLY COMPILED 

IF TASKING IN COMPILATION) 

SET UP COMMON PROLOGUE BASE 

SET GR9 TO POINT TO ADDRESSING AREA 

AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 



***** 

* 

* 

* 
* 



THE FOLLOWING CODE APPEARS 
ONLY IN THE CASE OF RECURSIVE PROCEDURES 



14, PR.. .A(12) 





ST 


14,92(0,13) 




LA 


14, PR. . .A(12) 




SR 


14,12 


* 


ST 


14,88(0,13) 


***** 







LOAD GR14 WITH THE CURRENT DISPLAY 

VALUE FOR A 

STORE IN DISPLAY UPDATE IN DSA 

GR14 = OFFSET OF DISPLAY PSEUDO -REGISTER 
STORE IN DISPLAY UPDATE IN DSA 



MVI 



INITIALIZE ON SLOTS (IF ANY) 
0(13),X , 8F f IDENTIFY DSA. 



COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 
CONTROL SECTION TO REAL DOPE VECTORS IN DSA. (THERE IS ALWAYS A 
SKELETON FOR A REAL DOPE VECTOR), AND RELOCATE THE ADDRESSES WITH THE 
ADDRESS OF THE DSA FOR THOSE DOPE VECTORS REFERRING TO VARIABLES 
IN THE DSA. 



FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 
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PROCEDURE THE CODE BETWEEN THE LABELS VDA1 AND VDA2 IS 
GENERATED 



VDA1 



SR 
SR 



7,7 

f 



CLEAR STORAGE ACCUMULATOR AC1 
CLEAR SECONDARY DOPE VECTOR STORAGE 
ACCUMULATOR AC 2 



FOR EACH VARIABLE IN THE VDA, THE FOLLOWING CODE IS 
GENERATED (BETWEEN I ABELS VAR1 AND VAR2) . 



VAR1 
* 

VAR2 



# 
VDA2 



AB 



* 
* 

IJK 
PROBAS 



COPRAM2 



EVALUATE EXTENT EXPRESSIONS (DIMENSIONS AND STRING LENGTHS) AND 

STORE RESULTS IN DOPE VECTOR IN DSA. 

ALIGN ACCUMULATOR ACl ON CORRECT BOUNDARY FOR VARIABLE 

BUMP ACCUMULATOR AC2 BY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 

IS DIMENSIONED AND VARYING) • 

RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 

VDA. 

ACCUMULATOR ACl BY SIZE OF STORAGE REQUIRED FOR VARIABLE 



BUMP 

AR 0,7 

L 15,36(0,11) 

BALR 14,15 

LA 1,8(0,1) 

AR 7,1 

L 14, DV. .VAR(0, : 

AR 14,1 

ST 14, DV. .VAR(0,: 



.3) 



.3) 



ADD ACl AND AC2 

LOAD GR15 WITH ENTRY POINT IHESADB 

GET VDA 

BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 

POINT GR7 AT FIRST SECONDARY DOPE VECTOR. 

FOR EACH VARIABLE IN REGION, RELOCATE 

ADDRESS IN DOPE VECTOR. 



FOR EACH DIMENSIONED VARYING ITEM IN REGION, 
SECONDARY DOPE VECTORS. 



INITIALIZE 



LA 



10,PROCBASE 



BCR 


15,8 


CNOP 


0,4 


BC 


15,8(0,15) 


DC 


ALK2) 


DC 


C , AB I 


STM 


14,11,12(13) 


L 


10, PROBAS (0,15) 


BAL 


8,GETDSA(10) 



MVI SWITCH (13) 9 X'X3 9 



BC 


15,COPRAM2(0, »> 


BC 


15,12(0,15) 


DC 


ALK3) 


DC 


C'lJE 1 


DC 


A (A) 


STM 


14,11,12(13) 


L 


10, PROBAS (0,15) 


BAL 


8,GETDSA(0,10] 


MVI 


SWITCH (13) ,X f X4 - 


L 


14,0(0,1) 


LA 


0,10(0,0) 


SR 


14,0 


LH 


14,0(0,14) 


ST 


14,Y(0,13) 


L 


14,4(0,1) 


ST 


14,Z(0,13) 


L 


14,8(0,1) 


ST 


14, TARGET (0,13) 



SET UP PROCEDURE BASE 

CODE (IF ANY) TO SET UP SOME ADDRESSING MECHANISMS 

IN E 

ADVANCE FOR USE IN PROCEDURE 

RETURN FROM COMMON PROLOGUE, 

BRANCH ROUND BCD OF ENTRY POINT 



SAVE REGISTERS IN CALLER'S SAVE AREA 

SET UP FIRST PROLOGUE BASE 

BRANCH AND LINK TO GET DSA AND TO SET 

UP ADDRESSING VECTOR 

SET UP RETURN (EXP) SWITCH IF THERE IS 

RETURN (EXP) AND DATA ATTRIBUTES OF 

ENTRY LABELS DIFFER 

BRANCH TO COPY OVER PARAMETERS 

BRANCH ROUND FOLLOWING CONSTANTS 

LENGTH OF BCD 

BCD OF ENTRY POINT 

FIRST PROLOGUE BASE 

SAVE REGISTERS IN CALLER'S SAVE AREA 

SET UP FIRST PROLOGUE BASE 

BRANCH TO GET DSA AND SET UP 

ADDRESSING VECTOR 

SET RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMH3T ADDRESS 



PICK UP PSEUDO-REGISTER OFFSET OF 

ARGUMENT AND STORE IN DSA. 

PICK UP ADDRESS OF SECOND ARGUMENT 

AND STORE IN Z 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 



Appendix D: Code Produced for Prologues and Epilogues 431 



BAL 
BC 



10,A...A(0,11) 

8, COMMON (0 f 10) 
15, AE. . .AB(0,10) 



LOAD GR10 WITH ADDRESS OF FIRST BYTE 
OF PROCEDURE 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO APPARENT ENTRY POINT AB 



THIS IS THE APPARENT ENTRY POINT OF A. 



THE FOLLOWING IS AN ON BLOCK PROLOGUE WHICH IS COMPILED FOR ALL 
ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 



LOOP 



COMMON 

* 

ONSTART 



STM 14,11,12(13) 

LR 10,15 



SAVE REGISTERS 
SET PROLOGUE BASE 



SET UP STATIC INTERNAL DATA POINTER 
LOAD GR15 WITH ADDRESS OF IHESADA 
LOAD GRO WITH SIZE OF DSA 
CALL IHESADA TO GET A DSA 



L 11,STATIC(0,1G) 

L 15,32(0,11) 

L 0,SIZDSAC0,10) 

BALR 14,15 

LR 14,13 

LA 0,7(0,0) 

SR 15,15 

A 14,0(0,11) 

ST 14,ADVEC+4(15,13) 

LA 15,4(0,15) 

BCT 0,LOOP(0,10) 

BC 15,COMMON(0,10) 

DC F'SIZE OF DSA' 

DC A (STATIC INTERNAL CONTROL SECTION) 

BALR 10,0 

CODE IS GENERATED HERE FOLLOWING SAME PATTERN AS FOR 

A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION. 

LA 10, ONSTART 



SET UP ADDRESSING VECTOR IN 
DSA 



BRANCH TO INITIALIZE DSA 



EPILOGUE FOR AN ON BLOCK 
L 15,IHESAFA(0,11) 

BALR 14,15 



LOAD GR15 WITH ENTRY POINT TO EPILOGUE 

ROUTINE AND BRANCH AND LINK TO IT 



* 
B 



PROLOGUE FOR A BEGIN BLOCK 



LOOP 



LA 


14, BEND 


BALR 


15,0 


CNOP 


0,4 


STM 


14,11,12(13) 


BALR 


9,0 


L 


15,32(0,11) 


L 


0,SIZDSA(0,9) 


BALR 


14,15 


LR 


14,13 


LA 


0,7(0,0) 


SR 


15,15 


A 


14,0(0,11) 


ST 


14,ADVEC+4(15,13) 


LA 


15,4(0,15) 


BCT 


0,LOOP(0,9) 


BC 


15,COMMON(0,9) 


DC 


F'SIZE OF DSA' 


LA 


9,ADDAREA(0,13) 


ST 


9,ADVEC(0,13) 



SET UP RETURN REGISTER 
SET UP ENTRY POINT ADDRESS 

SAVE REGISTERS IN CONTAINING BLOCK'S DSA 

SET UP PROLOGUE BASE 

LOAD GR15 WITH ENTRY POINT TO IHESADA 

GET A DSA 



SET UP ADDRESSING VECTOR FOR DSA 



SET GRG TO POINT TO ADDRESSING AREA 
AT END OF DSA AND STORE IN ADDRESSING 
VECTOR 
THE CODE GENERATED HERE IS THE SAME AS THAT FOR A PROCEDURE PROLOGUE 
EXCEPT THAT A DIFFERENT CODE BYTE IS MOVED TO THE FIRST BYTE OF THE 
DSA; GR10 IS NOT RESET; AND THE BCR 15,8 IS NOT GENERATED. 
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BEND 



EPILOGUE OF A BEGIN BLOCK 
L 15, IHESAFA 
BALR 14,15 



LOAD GR15 WITH ENTRY POINT OF 
EPILOGUING ROUTINE AND CALL IT 



RETURN (EXP) STATEMENT EXAMINES THE LOCATION "SWITCH" IN THE DSA 

SET BY THE PROLOGUE TO DETERMINE THE CONVERSION REQUIRED ON 

THE EXPRESSION. IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 

THE TARGET FIELD FOR WHICH THE LOCATION ■TARGET" # IN THE DSA, 

POINTS TO EITHER ITS DOPE VECTOR (IN THE CASE OF A STRING) 

OR THE STORAGE. ROUTINE IHESAFA IS THEN INVOKED. 

END STATEMENT (WHICH IS THE SAME AS A RETURN STATEMH^T) 

L 15, IHESAFA 

BALR 14,15 



DSA OPTIMIZATION 

In compilations specifying OPT=i, if a PRO- 
CEDURE or BEGIN block has a DSA which 
requires less than 512 bytes of storage, 
such storage may, under certain conditions, 
be obtained from STATIC storage or from 
library workspace. To obtain a STATIC DSA, 
the block must satisfy these conditions: 

1. The block must not be re-entrant or 
recursive 

2. The block must not be nested (at any 
depth) within an ON block 

3. The block must not have the MAIN or 
TASK options 

A block which is ineligible for a STATIC 
DSA, and whose DSA will never be active 
when any new DSA is required, is allocated 
its DSA from library workspace. 

Each block requiring a DSA either in 
STATIC or in library workspace calls one of 
two compiled subroutines, instead of IHE- 
SAD, to allocate the storage. Either or 
both subroutines, if required, are compiled 
onto the end of the program, and are pre- 
fixed by the comments "STATIC PROLOGUE SUB- 
ROUTINE" and "DYNAMIC PROLOGUE subroutine" 
respectively. Entry may be made to the 
STATIC prologue subroutine at one of sever- 
al points. 

Any block using one of these prologue 
subroutines will also use a compiled Epilo- 
gue subroutine, which will be called for 
the END statement of the block, or for a 
RETURN statement without an expression. 
(The same Epilogue subroutine serves both 



ST 


4,84(13) 




ST 


2,80(13) 




ST 


2,8(13) 




MVI 


76(13) f X s 00 f 




ST 


2,96(13) 




BR 


14 
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STATIC and library workspace DSAs.) If 
there is any core to be freed, the Epilogue 
subroutine will call IHESAFA. The Epilogue 
subroutine is also compiled onto the end of 
the program, and always immediately pre- 
cedes the STATIC Prologue subroutine if 
this is present. 



The address of the Dynamic Prologue sub- 
routine and the Epilogue subroutine are 
placed in the STATIC internal control sec- 
tion, at offsets 40 and 48 from the start 
respectively. Since the STATIC Prologue 
subroutine always follows the Epilogue sub- 
routine, which is of fixed length, a third 
address slot is not required for it. 

Listings of the Dynamic and Static Pro- 



loque and the 


Epiloque subroutines 


* DYNAMIC PROLOGUE SUBROUTINE 


L 


5, PR. «IHEQLWF(12) 


LTR 


5,5 


BC 


8,90(15) 


L 


6, PR. «IHEQINV(12) 


LTR 


6,6 


BC 


4,90(15) 


LR 


13,5 


SR 


2,2 


L 


3, PR. .IHEQSLA(12) 


ST 


13,PR..IHEQSLA(12) 


ST 


3,4(13) 


TM 


0(3),X"80" 


BC 


1,52(15) 


L 


3,4(3) 


B 


36(15) 


ST 


13,8(3) 


L 


4, PR. .IHEQINV(12) 


LA 


4,1(4) 


ST 


4, PR. .IHEQINV(12) 


L 


15,32(11) 


BR 


15 



END SUBROUTINE 
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EPILOGUE SUBROUTINE 



STATIC PROLOGUE SUBROUTINE 



TM 1(13), X»80' 

BC 8,60(15) 

L 2,80(13) 

LTR 2,2 

BC 7,60(15) 

C 13,PR..IHEQSLA(12) 

BC 7,60(15) 

L 13,4(13) 

ST 13, PR. . IHEQSLA(12) 

TM 0(13),X , 80 f 

BC 1,50(15) 

L 13,4(13) 

B 34(15) 

ST 2,8(13) 

LM 14,11,12(13) 

BR 14 

L 15, A. .IHESAFA 

BR 15 

END SUBROUTINE 



L 4, PR. .IHEQINV(12) 

LTR 4 , 4 

BC 11,86(15) 

L 7, PR. .IHEQLWO(12) 

MVC 80(4, 3), 80(7) 

LA 4,1(4) 

ST 4, PR. .IHEQINV(12) 

ST 4,84(3) 

MVI 76(3), X'00' 

ST 3,8(13) 

LR 13, 3 

L 3, PR. . IHEQSLA(12) 

ST 3,4(13) 

ST 13, PR. .IHEQSLA(12) 

SR 2,2 

ST 2,80(13) 

ST 2,8(13) 

ST 2,96(13) 

BR 14 

END SUBROUTINE 
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APPENDIX E: 



DIAGNOSTIC MESSAGES 



Messages produced by the PL/ I compiler are explained in the PL/I Programmer's Guide . In 
the table below, each compiler message number is associated with the phase and module in 
which the corresponding message is generated. 



Message numbers are not listed for PLC and ODC messages. All messages numbered 
CFBAAxxx (where xxx is a three-digit number) are generated in PLC. All messages numbered 
CFBABxxx are generated in ODC. These messages are explained in IBM System/360 Time Shar- 
ing System , System Messages . 



(Message 








| Number 

V 

JIEMOOOII 


Logical Phase 


Module 


Read 


In 


CA 


(IEM0002I 


Read 


In 


CA 


IIEM0003I 


Read 


In 


CA,CP 


[IEM0004I 


Read 


In 


CA 


|IEM0005I 


Read 


In 


CA f CL 


[IEM0006I 


Read 


In 


CA 


|IEM0007I 


Read 


In 


CA 


(IEM0008I 


Read 


In 


CA 


1IEM0009I 


Read 


In 


CA 


JIEM0010I 


Read 


In 


CA 


|IEM0011I 


Read 


In 


CA 


|IEM0012I 


Read 


In 


CA 


(IEM0013I 


Read 


In 


CA 


|IEM0014I 


Read 


In 


CA 


|IEM0015I 


Read 


In 


CA 


|IEM0016I 


Read 


In 


CA 


(IEM0017I 


Read 


In 


CA 


jimooisi 


Read 


In 


CA 


JIEM0019I 


Read 


In 


CA 


(IEM0020I 


Read 


In 


CA 


|IEM0021I 


Read 


In 


CA 


(IIM0022I 


Read 


In 


CA 


JIEM0023I 


Read 


In 


CA 


|IEM00 24I 


Read 


In 


CA 


(IEM0025I 


Read 


In 


CA 


(IHM0026I 


Read 


In 


CA 


(IEM0027I 


Read 


In 


CA 


(IEM00 28I 


Read 


In 


CG 


JIEM0029I 


Read 


In 


CA 


|IEM0031I 


Read 


In 


CA,CL f CT 


II1M0032I 


Read 


In 


CC 


JIEM0033I 


Read 


In 


CC 


|IEM00 35I 


Read 


In 


CC 


JIEM0037I 


Read 


In 


CC 


JIEM0038I 


Read 


In 


CC 


JIEM0039I 


Read 


In 


CC 


JIEM0040I 


Read 


In 


CC 


JIEM0044I 


Read 


In 


CC 


(IEM0045I 


Read 


In 


CC 


(IEM0046I 


Read 


In 


CC 


(IEM0048I 


Read 


In 


CG 


JIEM0050I 


Read 


In 


CL r CP 


JIEM0051I 


Read 


In 


CL f CP 


|I1M0052I 


Read 


In 


CO 


JIEM0053I 


Read 


In 


CO 


|IEM005iH 


Read 


In 


CO 


(IEM0055I 


Read 


In 


CP 











M^kCjci Pi no 




— - —i 


nco »3 y tz 

Number 


Logical Phase 


Module J 
4 

cc | 


IEM0057I 


Read 


In 


IEM0058I 


Read 


In 


CC | 


IEM0059I 


Read 


In 


CP j 


IEM0060I 


Read 


In 


CP | 


IEM0061I 


Read 


In 


CP | 


IEM0063I 


Read 


In 


CO j 


IEM0064I 


Read 


In 


cc i 


IEM0066I 


Read 


In 


CG | 


IEM0067I 


Read 


In 


CL j 


IEM0069I 


Read 


In 


CG j 


IEM0070I 


Read 


In 


CG j 


IEM0071I 


Read 


In 


CG | 


IEM0072I 


Read 


In 


CG | 


IEM0074I 


Read 


In 


CG | 


IEM0075I 


Read 


In 


CG | 


IEM0076I 


Read 


In 


CG | 


IEM0077I 


Read 


In 


CG j 


IEM0078I 


Read 


In 


CG | 


IEM0080I 


Read 


In 


CG | 


IEM0081I 


Read 


In 


CG j 


IEM0082I 


Read 


In 


CG | 


IEM0083I 


Read 


In 


CG j 


IEM0084I 


Read 


In 


CG | 


IEM0085I 


Read 


In 


CI j 


IEM0086I 


Read 


In 


CI | 


IEM0089I 


Read 


In 


CI j 


IEM0090I 


Read 


In 


CI | 


IEM0094I 


Read 


In 


CI I 


IEM0095I 


Read 


In 


CI j 


IEM0096I 


Read 


In 


CG f CI j 


IEM0097I 


Read 


In 


CI j 


IEM0099I 


Read 


In 


CI | 


IEM0100I 


Read 


In 


CI I 


IEM0101I 


Read 


In 


CM j 


IEM0102I 


Read 


In 


CI j 


IEM0103I 


Read 


In 


CI j 


IEM0104I 


Read 


in 


CC | 


IEM0105I 


Read 


In 


CC f CG | 


IEM0106I 


Read 


In 


CI # CV j 


IEM0107I 


Read 


In 


CI j 


IEM0108I 


Read 


In 


CI I 


IEM0109I 


Read 


In 


CG f CI j 


IEM0110I 


Read 


In 


CI | 


IEM0111I 


Read 


In 


CI j 


IEM0112I 


Read 


In 


CI | 


IEM0113I 


Read 


In 


CG f CM j 


IEM0114I 

L . 


Read 


In 


CI | 

. — .... .. j 
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Message 
Number 



Logical Phase 



IEM0115I 
IEM0116I 
IEM0117I 
IEM0118I 
IEM0119I 
IEM0120I 
IEM0121I 
IEM0122I 
IEM0123I 
IEM0124I 
IEM0125I 
IEM0126I 
IEM0127I 
IEM0128I 
IEM0129I 
IEM0130I 
IEM0131I 
IEM0132I 
IEM0134I 
IEM0135I 
IEM0136I 
IEM0138I 
IEM0139I 
IEM0140I 
IEM0141I 
IEMQ144I 
IEM0145I 
IEM0147I 
IEM0149I 
IEM0150I 
IEM0151I 
IEM0152I 
IEM0153I 
IEM0154I 
IEM0158I 
IEM0159I 
IEM0163I 
IEM0166I 
IEM0172I 
IEM0180I 
IEM0181I 
IEM0182I 

IEM0185I 
IEM0187I 
IEM0191I 
IEM0193I 
IEM0194I 
IEM0195I 
IEM0198I 
IEM0202I 
IEM0207I 
IEM0208I 
IEM0209I 
IEM0211I 
IEM0212I 
IEM0213I 
IEM0214I 
IEM0216I 
IEM0217I 
IEM0220I 



Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 

Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 



Module 
j 

CL 

CI 

CM 

CL 

CM 

CM 

CO 

CO 

CM 

CO 

CO 

CO 

CO 

CO 

CL 

CL 

CO 

CO 

CP 

CP 

CO 

CP 

CP 

CO 

CP 

CO 

CO 

CO 

CL r CM 

CL 

CO 

CO 

CO 

CA 

CO 

CO 

CT 

CL 

CL 

CT 

CL 

CL,CS, 

CT f CV 

CT 

CT 

CT 

CT 

CT 

CT 

CT 

CL 

CG 

CG 

CC 

CL 

CP 

CP 

CP 

CP 

CP 

CT 



^ 4 



Message 
Number 



Logical Phase 



Module 



IEM0221I 
IEM0222I 
IEM0223I 
IEM0224I 
IEM0225I 
IEM0226I 
IEM0227I 
IEM0228I 
IEM0229I 
IEM0230I 
IEM0231I 
IEM0232I 
IEM0233I 
IEM0235I 
IEM0236I 
IEM0237I 
IEM0238I 
IEM0239I 
IEM0240I 
IEM0241I 
IEM0242I 
IEM0243I 
IEM0244I 
IEM0245I 
IEM02 47I 
IEM0254I 
IEM0255I 
IEM0510I 
IEM0511I 
IEM0512I 
IEM0513I 
IEM0514I 
IEM0515I 
IEM0516I 
IEM0517I 
IEM0518I 
IEM0519I 
IEM0520I 
IEM0521I 
IEM0522I 
IEM0523I 
IEM0524I 
IEM0525I 
IEM0527I 
IEM0528I 
IEM0529I 
IEM0530I 
IEM0531I 
IEM0532I 
IEM0533I 
IEM0534I 
IEM0536I 
IEM0537I 
IEM0538I 
IEM0539I 
IEM0540I 
IEM0541I 
IEM0542I 
IEM0543I 
IEM0544I 
IEM0545I 



Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Read In 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 

Dictionary 



CT 

CT 

CT 

CT 

CT 

CT 

CT 

CT 

CT 

CS f CT 

CT 

CT 

cv 

cs 
cs 
cs 
cv 
cs 
cv 
cv 
cv 
cv 
cv 
cv 
cw 

CC 

CG 
EH 
EH 
EH 
EG 
EG 
EG 
EG 
EG 
EG 
EG 
EG 
EG 
EG 
EG 
EH 
EI 
EJ 
EH 
EI 
EI 
EI 
EI 
EI 
EI 
EI 
EI 
EJ 
EJ 
EJ 
EJ 
EJ 

ELf EK t EM I 

EL,EK f EM | 

EL,EK # EM| 

J 
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r 
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-1 


r — 




- — j 


(Message 








(Message 






| Number 

L 


Logical Phase 


Module I 


I Number 

i ____ 


Logical Phase 


Module J 
FV,FW I 


(IEM0546I 


Dictionary 


EL f EK f 


- — 1 
EM) 


1 ■ — 

[IEM0629I 


Dictionary 


(IEM0547I 


Dictionary 


EL,EK, 


EM| 


JIEM06 30I 


Dictionary 


FV,FW j 


|IEM0548I 


Dictionary 


EL f EK f 


EM| 


(IEM0631I 


Dictionary 


FV,FW | 


(IEM0549I 




EL,EK, 


EM| 


(IEM0632I 


Dictionary 


FV,FW j 


[IEM0550I 


Dictionary 


EL,EK, 


m\ 


JIEM06 33I 


Dictionary 


EY j 


IIEM0551I 


Dictionary 


EK,EL, 


EMJ 


JIEM0634I 


Dictionary 


EY j 


|IEM0552I 


Dictionary 


EL f EK f 


EM| 


JIEM0636I 


Dictionary 


EY j 


|IEM0553I 


Dictionary 


EL,EK, 


EM| 


JIEM0637I 


Dictionary 


EY j 


JIEM0554I 


Dictionary 


EL,EK, 


EM| 


JIEM0638I 


Dictionary 


EY I 


(IEM0555I 








JIEM0640I 


Dictionary 


EY I 


JIEM0556I 


Dictionary 


EL,EK, 


EM| 


JIQ40641I 


Dictionary 


EY I 


(IIM0557I 


Dictionary 


EL,EK, 


EM| 


JIEM0642I 


Dictionary 


EY j 


|IEM0558I 


Dictionary 


EL f EK, 


EM| 


JIEM0643I 


Dictionary 


EY | 


|IEM0559I 


Dictionary 


EL,EK f 


EMJ 


jlEM06t|4I 


Dictionary 


EY | 


(IEM0560I 


Dictionary 


EL,EK f 


EMJ 


JIEM0645I 


Dictionary 


EY j 


(IEM0561I 


Dictionary 


EL f EK, 


EM J 


JIEM0616I 


Dictionary 


EY j 


(IEM0562I 


Dictionary 


EK,EL f 


EMJ 


(IEM0647I 


Dictionary 


EY I 


(IEM0563I 


Dictionary 


EK,EL f 


EMJ 


(IEM0653I 


Dictionary 


FE | 


| IEM0564I 


Dictionary 


EK,EL f 


EM( 


JIEM0655I 


Dictionary 


FE I 


|IEM0565I 


Dictionary 


EK f EL, 


EMJ 


|IEM0656I 


Dictionary 


FE j 


JIEM0566I 


Dictionary 


EK,EL f 


EM) 


JIEM0657I 


Dictionary 


FE j 


(IEM0567I 


Dictionary 


EP 




JIEM0658I 


Dictionary 


FE j 


(IEM0568I 


Dictionary 


EP 




JIEM0660I 


Dictionary 


FE j 


(IEM0569I 


Dictionary 


EP 




I JIEM0661I 
1 (IEM0662I 


Dictionary 


FE | 


1IH40570I 


Dictionary 


EP 




Dictionary 


FE j 


I IEM0571I 


Dictionary 


EK 




JIEM0673I 


Dictionary 


FE | 


|IEM0572I 


Dictionary 


EL 




JIEM0674I 


Dictionary 


FF j 


|IEM0573I 


Dictionary 


EL 




JIEM0675I 


Dictionary 


FF j 


[IEM0576I 


Dictionary 


EL 




(IEM0676I 


Dictionary 


FF | 


| IEM0577I 


Dictionary 


EL 




(IEM0677I 


Dictionary 


FE j 


|IEM0578I 


Dictionary 


EL 




JIEM0682I 


Dictionary 


FI j 


| IEM0579I 


Dictionary 


EL 




(IEM0683I 


Dictionary 


FI j 


JIEM0580I 


Dictionary 


EL 




JIEM0684I 


Dictionary 


FI | 


IIEM0589I 


Dictionary 


EW 




JIEM0685I 


Dictionary 


FI I 


1IEM0590I 


Dictionary 


EW 




JIEM0686I 


Dictionary 


FI j 


[IEM0591I 


Dictionary 


EW 




JIEM06 87I 


Dictionary 


FI j 


|IEM0592I 


Dictionary 


EW 




JIEM06 88I 


Dictionary 


FI | 


|im0593I 


Dictionary 


EW 




JIEM0689I 


Dictionary 


FI | 


(IEM0594I 


Dictionary 


EW 




JIEM0690I 


Dictionary 


FI j 


[IEM0595I 


Dictionary 


EW 




JIEM0691I 


Dictionary 


FI | 


| IEM0596I 


Dictionary 


EW 




JIEM0692I 


Dictionary 


FI j 


[IEM0597I 


Dictionary 


EW 




JIEM0693I 


Dictionary 


FI j 


| IEM0598I 


Dictionary 


EW 




JIEM0694I 


Dictionary 


FI | 


[IEM05 99I 


Dictionary 


EW 




(IEM0695I 


Dictionary 


FI j 


|IEM0602I 


Dictionary 


FV,FW 




JIEM0696I 


Dictionary 


FI j 


|IEM0603I 


Dictionary 


FV,FW 




|IEM0697I 


Dictionary 


FI j 


(IEM06Q4I 


Dictionary 


FV,FW 




|IEM0698I 


Dictionary 


FI j 


JIEM06052 


Dictionary 


FV f FW 




IIEM0699I 


Dictionary 


FI j 


(IEM0606I 


Dictionary 


FV,FW 




JIEM0700I 


Dictionary 


FI j 


|IEM0607I 


Dictionary 


FV,FW 




JIEM0701I 


Dictionary 


FI j 


1IEM0608I 


Dictionary 


FV,FW 




JIEM0702I 


Dictionary 


FI | 


|IEM0609I 


Dictionary 


FV,FW 




JIEM0703I 


Dictionary 


FI [ 


(IEM0610I 


Dictionary 


FV f FW 




|IEM070**I 


Dictionary 


FI j 


|IEM0611I 


Dictionary 


FV,FW 




IIEM07051 


Dictionary 


FI | 


(IEM0612I 


Dictionary 


FV 




JIEM0706I 


Dictionary 


FI 1 


JIEM0613I 


Dictionary 


FW 




|UEM0707I 


Dictionary 


FI | 


|IEM0614I 


Dictionary 


FW 




[IEM0715I 


Dictionary 


EJ j 


JIEM0623I 


Dictionary 


FV,FW 




JIEM0718I 


Dictionary 


FO [ 


JIEM0624I 


Dictionary 


FV,FW 




JIEM0719I 


Dictionary 


FO | 


(IEM0625I 


Dictionary 


FV,FW 




JIEM0720I 


Dictionary 


FO j 


|IEM0626I 


Dictionary 


FV,FW 




(IEM0721I 


Dictionary 


FO | 


(IEM0628I 


Dictionary 


FV f FW 




JIEM07 22I 


Dictionary 


FO j 


L_ . 






J 


I , 
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r 

| Message 








" 


r _ — 

(Message 




— . 1 


(Number 

k 

(IEM0723I 


Logical Phase 


Module 


| Number 

I . 


Logical Phase 


Module J 

. J 


Dictionary 


FO 







1IEM0817I 


Pretranslator 


GU,GV 1 


fIEM0724I 


Dictionary 


FO 






JIEM0818I 


Pretranslator 


GU r GV J 


|IEM072SI 


Dictionary 


FO 






JIEM0819I 


Pretranslator 


GU,GV | 


[IEM0726I 


Dictionary 


FO 






JIEM0820I 


Pretranslator 


GU f GV | 


(IEM0727I 


Dictionary 








JIEM0821I 


Pretranslator 


GU,GV | 


(IEM0728I 


Dictionary 


FO 






JIEM0823I 


Pretranslator 


GU,GV | 


(IEM0729I 


Dictionary 


FO 






|IEM0824I 


Pretranslator 


GU j 


|IEM0730I 


Dictionary 


FQ 






JIEM0825I 


P retranslator 


GU,GV | 


|IEM0731I 


Dictionary 


FQ 






|IEM0826I 


Pre trans lat or 


GU,GV 1 


(IEM0732I 


Dictionary 


FQ 






JIEM0832I 


P retranslator 


HF # HG | 


JIEM0733I 


Dictionary 


FQ 






JIEM0833I 


Pretranslator 


HF,HG | 


(IEM0734I 


Dictionary 


FQ 






|IEM0834I 


Pretranslator 


HF,HG | 


(IEM0735I 


Dictionary 


FQ 






[IEM0835I 


P re trans lat or 


HF,HG | 


(IEM0736I 


Dictionary 


FQ 






(IEM0836I 


Pretranslator 


HF,HG j 


|IEM0737I 


Dictionary 


FQ 






JIEM0837I 


Pretranslator 


HF,HG j 


| IEM0739I 


Dictionary 


FQ 






[IEM0838I 


Pretranslator 


HF j 


|IEM0740l 


Dictionary 


FQ 






JIEM0848I 


Pretranslator 


HF,HG | 


(IEM0741I 


Dictionary 


FQ 






|IEM0849I 


P r etr an si ator 


HF,HG j 


|IEM0742I 


Dictionary 


FQ 






|IEM0850I 


Pretranslator 


HF f HG j 


(IEM0745I 


Dictionary 


FQ 






|IEM0851I 


Pretranslator 


BF,HG j 


|IEM0746I 


Dictionary 


FQ 






|IEM0852I 


Pretranslator 


HF f HG j 


(IEM0747I 


Dictionary 


FQ 






JIEM0853I 


Pretranslator 


BF r HG j 


(IEM0748I 


Dictionary 


FQ 






JIEM0864I 


Pretranslator 


HK,HL | 


[IEM0749I 


Dictionary 


FQ 






JIEM0865I 


Pretranslator 


HK,HL j 


(IEM0750I 


Dictionary 


FQ 






|IEM0866I 


Pretranslator 


HK # HL | 


(IEM0751I 


Dictionary 


FQ 






JIEM0867I 


Pretranslator 


HK,HL f 


[IEM0752I 


Dictionary 


FQ 






IIEM0868I 


Pretranslator 


HK,HL j 


|IEM0754I 


Dictionary 


FQ 






JIEM0869I 


Pretranslator 


HK,HL | 


|IEM0755I 


Dictionary 


FQ 






JIEM0870I 


Pretranslator 


BK,HL | 


[IEM0756I 


Dictionary 


FQ 






(IEM0871I 


Pretranslator 


HK,HL j 


|IEM0758I 


Dictionary 


FQ 






JIEM0872I 


Pretranslator 


HK,HL | 


1IEM0759I 


Dictionary 


FQ 






JIEM0873I 


Pretranslator 


HK,HL | 


|IEM0760I 


Dictionary 


FQ 






(IEM0874I 


Pretranslator 


HK,HL | 


1IEM0761I 


Dictionary 


FQ 






J1EM0875I 


Pretranslator 


HK,HL j 


|IEM0762I 


Dictionary 


FQ 






|IEM0876I 


Pretranslator 


HK,HL j 


(IEM0769I 


Pretranslator 


GB 






JIEM0877I 


Pretranslator 


HK f HL | 


IIEM0770I 


Pretranslator 


GB 






JIEM0878I 


Pretranslator 


HK f HL j 


(IEM0771I 


Pretranslator 


GB 






JIEM0879I 


Pretranslator 


HK,HL | 


(IEM0778I 


Pretranslator 


GB 






JIEM0880I 


Pretranslator 


HK,HL | 


| IEM0779I 


Pretranslator 


GB 






(IEM0881I 


Pretranslator 


HK f HL j 


IIEM0780I 


Pretranslator 


GB 






JIEM0882I 


Pretranslator 


HK j 


|IEM0781I 


Pretranslator 


GB 






|IEM0896I 


Pretranslator 


HP | 


(IEM0782I 


Pretranslator 


GB 






JIEM0897I 


Pretranslator 


HP | 


(IEM0786I 


Pretranslator 


GK 






JIEM0898I 


Pretranslator 


HP | 


(IEM0787I 


Pretranslator 


GK 






JIEM0899I 


Pretranslator 


HP | 


(IEM0791I 


Pretranslator 


GK 






JIEM0900I 


Pretranslator 


HP | 


JIEM0792I 


Pretranslator 


GP, 


GQ, 


GR 


1IEM0901I 


Pretranslator 


HP j 


(IEM0793I 


Pretranslator 


GP, 


GQ t 


GR 


JIEM0902I 


Pretranslator 


HP j 


|IEM0794I 


Pretranslator 


GP, 


GQ ( 


GRi 


(IEM0903I 


Pretrans lat or 


HP j 


|IEM0795I 


Pretranslator 


GP f 


GQ, 


GR 


|IEM0906I 


Pretranslator 


HP j 


IIEM0796I 


P r et rans 1 at or 


GP, 


GQ, 


GR 


JIEM0907I 


Pretranslator 


HP | 


[IEM0797I 


Pretranslator 


GP, 


GQ t 


r GR 


|IEM102«*I 


Translator 


IA j 


(IEM0798I 


Pretranslator 


GP, 


GQ, 


GR 


(IEM10251 


Translator 


IA j 


[IEM0799I 


Pretranslator 


GP, 


GQ ( 


GR 


|IEM10 26I 


Translator 


IA j 


JIEM0800I 


Pretranslator 


GP, 


GQ, 


GR 


JIEM1027I 


Translator 


IA | 


IIEM0801I 


Pretranslator 


GP, 


GQ, 


GR 


|IEM1028I 


Translator 


IA j 


[IEM08 02I 


Pretranslator 


GP, 


GQ, 


GR 


JIEM1029I 


Translator 


IA | 


[IEM0803I 


Pretranslator 


GP, 


GQ, 


GR 


JIEM1030I 


Translator 


IA j 


(IEM0804I 


Pretranslator 


GP, 


GQ, 


f GR 


[IEM1040I 


Translator 


IM j 


|IEM0805I 


Pretranslator 


GP, 


GQ, 


GR 


JIEM1051I 


Translator 


IM j 


JIEM0806I 


Pr e trans la tor 


GP, 


GQ, 


GR 


JIEM1056I 


Translator 


IM j 


IIEM0807I 


Pretranslator 


GP, 


GQ, 


GR 


|IEM1057I 


Translator 


IM | 


[IEM0816I 


Pretranslator 


GU, 


GV 




|IEM1058I 


Translator 


IM j 


L 








J 


L 




J 
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Message 
Number 



Logical Phase 



IEM1059I 
IEM1060I 
IEM1061I 
IEM1062I 
IEM1063I 
IEM1064I 
IEM1065I 
IEM1066I 
IEM1067I 
IEM1068I 
IEM1070I 
I EMI 071 1 
IEM1072I 
IEM1073I 
IEM1074I 
IEM1076I 
IEM1082I 
IEM1088I 
I EMI 08 91 
IEM1090I 
IEM1091I 
IEM1092I 
IEM1104I 
IEM1105I 
IEM1106I 
IEM1107I 
IEM1108I 
IEM1110I 
IEM1111I 
IEM1112I 
IEM1113I 
IEM1114I 
IEM1115I 
IEM1120I 
IEM1121I 
IEM1122I 
IEM1123I 
IEM1125I 
IEM1200I 
IEM1210I 
IEM1211I 
IEM1220I 
IEM1223I 
IEM1224I 
IEM1569I 
IEM1570I 
IEM1571I 
IEM1572I 
IEM1574I 
IEM1575I 
IEM1588I 
IEM1600I 
IEM1601I 
IEM1602I 
IEM1603I 
IEM1604I 
IEM1605I 
IEM1606I 
IEM1607I 
IEM1608I 
IEM16 09I 
IEM1610I 
IEM1611I 



Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Aggregates 

Aggregates 

Aggregates 

Aggregate Preprocessor 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Aggregates 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Do loop optimization 

Pseudo-code 

Do loop optimization 

Do loop optimization 

Do loop optimization 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Ps eu do- code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 

Pseudo-code 



._ -j 

Module 
_ j 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

IM 

JD 

IX 

JK 

JK 

JK 

JI 

JK 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

LD 

LD 

KT 

KC 

KE 

KU 

KO 

KA 

LG-ON 

LG 

LG 

LG 

LG 

LG 

MD 

LS f LT,LU 

LS 

LS f LT f LU 

LS,LT,LU 

LS,LT f LU 

LS f LT,LU 

LS f LT f LU 

LS,LT,LU 

LS # LT f LU 

LS, LT f LU 

LW 

LW 



H „ _. 



Message 
Number 



Logical Phase 



IEM1612I 
IEM1613I 
IEM1614I 
1EM1615I 
IEM1616I 
IEM1617I 
IEM1618I 
IEM1619I 
IEM1620I 
IEM16 22I 
IEM1623I 
IEM1624I 
IEM1625I 
IEM1626I 
IEM1627I 
IEM1628I 
IEM1629I 
IEM1630I 
IEM1631I 
IEM1632I 
IEM1633I 
IEM1634I 
IEM16 35I 
IEM1636I 
IEM1637I 
IEM1638I 
IEM1639I 
IEM1640I 
IEM1641I 
IEM1642I 
IEM1643I 
IEM1644I 
IEM1645I 
IEM1648I 
IEM1649I 
IEM1650I 
IEM1651I 
IEM1652I 
1EM1653I 
IEM1654I 
IEM1655I 
IEM1656I 
IEM1657I 
IEM1658I 
IEM1670I 
IEM1671I 
IEM1680I 
IEM1687I 
IEM1688I 
IEM16891 
IEM1692I 
IEM1693I 
IEM1695I 
IEM1696I 
IEM1750I 
IEM1751I 
IEM1752I 
IEM1753I 
IEM1754I 
IEM1790I 
IEM1793I 
IEM1794I 
IEM1795I 



Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseud o- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo- code 
Pseud o- code 
Pseudo-code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo- code 
Pseudo-code 
Pseudo- code 



Module 
., 

LW 

LS,LT,LU 

LW 

ME 

ME 

MB 

MB 

MB 

MB 

MB, ME 

MB 

MB 

MB 

ME 

ME 

ME 

ME 

MG f MH 

MI f MJ 

MI,MJ 

ME 

ME 

ME 

ME 

ME 

ME 

MF 

MM f MN 

MM f MN 

MM f MN 

MM,MN 

MM f MN 

MM f MN 

MM f MN 

MM f MN 

MM f MN 

MM f MN 

MM f MN 

MM f MN 

MM,MN 

MN 

ME 

MM 

MN 

MP 

MP 

MS 

MS 

MS 

MS 

MS 

MS 

MA 

MA 

MS 

MS 

NA 

NA 

NA 

OG,OM 

OE 

OE 

OE 
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| Message 
| Number 

(IEM1796I 
[IEM1797I 
|IEM1800i 
[IEM18 01I 
JIEM1802I 
|IEM1803I 
|IEM1804I 
1IEM1805I 
(IEM1806I 
JIEM1807I 
|IEM1808I 
JIEM1809I 
|IEM1810I 
|IEM1811I 
|IEM1812I 
|IEM1813I 
(IEM1814I 
|IEM1815I 
[IEM1816I 
(IEM1817I 
|IEM1818I 
|IEM1819I 
(IEM18 20I 
(IEM1821I 
|IEM1822I 
|IEM1823I 
(IEM18 24I 
|IEM1825I 
|IEM1826I 
| IEM1827I 
IIEM1828I 
(IEM1829I 
(IEM18 30I 
(IEM1831I 
(IEM18 32I 
(IEM1833I 
(IEM1834I 
(IEM1835I 
|IEM1836I 
|IEM1837I 
|IEM18 38I 
|IEM1839I 
|IEM1840I 
(IEM1841I 
|IEM18 43I 
|IEM1844I 
|IEM18 45I 
|IEM1846I 
|IEM18 47I 
|IEM1848I 
|IEM1849I 
(IEM1850I 
(IEM1860I 
(IEM1861I 
|IEM1862I 
(IEM1870I 
(IEM1871I 
JIEM1872I 
[IEM1873I 
[IEM1874I 
(IEM1875I 
(IEM2304I 
|IEM2305I 

L 



— -, 



Logical Phase 



Module 



_ _ H 

Pseudo-code OE 

Pseudo-code OE 

Pseudo-code OS 

Pseudo-code OS 

Ps eudo- code OS 

Pseudo-code OS 

Ps eudo- code OS 

Pseudo-code OS 

Ps eudo- code OS 

Pseud o- code OS 

Pseudo-code OS 

Ps eudo- code OS 

Pseudo-code OS 

Ps eudo- code OS 

Pseudo-code OS 

Ps eudo- code OS 

Pseudo-code OS 

Ps eu do- co d e OS 

Ps eudo- code NJ 

Ps eudo- code NJ 

Ps eudo- code NJ 

Ps eudo- code NJ 

Ps eu do- cod e N J 

Ps eudo- code NJ 

Ps eu do- cod e N J 

Pseudo-code NJ 

Ps eudo- code NM 

Ps eudo- code NG 

Ps eudo- code NG 

Ps eudo- code NG 

Ps eudo- code NG 

Pseudo-code NG 

Ps eudo- code NG 

Pseudo-code NJ 

Ps eudo- code NM 

Ps eudo- code NM 

Pseudo-code NM 

Ps eudo- code NM 

Pseudo-code NM 

Ps eudo- code NM 

Pseudo-code NM 

Ps eudo- code NM 

Ps eudo- code NM 

Ps eu do- cod e NM 

Pseudo-code NM 

Ps eu do- code NM 

Pseudo-code NM 

Ps eudo- code NM 

Pseudo-code NM 

Ps eudo- code NM 
Constant Conversions OS 
Constant Conversions OS 

Pseudo-code NU 

Ps eudo- code NU 

Pseudo-code NU 

Ps eudo- code NU 

Pseudo-code NU 

Pseudo-code NU 

Ps eudo- code NU 

Pseudo-code NU 

Ps eudo- code NV 

Storage Allocation PD 

Storage Allocation PD 



Message 
Number 



Logical Phase 



Module 



H 

IEM2352I Storage Allocation 

IEM2650I Register Allocation 

IEM2660I Register Allocation 

IEM2661I Register Allocation 

IEM2700I Register Allocation 

IEM2701I Register Allocation 

IEM2702I Register Allocation 

IEM2703I Register Allocation 

IEM2704I Register Allocation 

IEM2705I Register Allocation 

IEM2706I Register Allocation 

IEM2707I Register Allocation 

IEM2708I Register Allocation 

IEM2709I Register Allocation 

IEM2710I Register Allocation 

IEM2711I Register Allocation 

IEM2712I Register Allocation 

IEM2817I DCB Generation 

IEM2818I DCB Generation 

IEM2819I DCB Generation 

IEM2820I DCB Generation 

IEM28 21I DCB Generation 

IEM2822I DCB Generation 

IEM28 23I DCB Generation 

IEM2824I DCB Generation 

IEM28 25I DCB Generation 

IEM2826I DCB Generation 

IEM28 27I DCB Generation 

IEM28 28I DCB Generation 

IEM2829I DCB Generation 

IEM28 30I DCB Generation 

IEM28 31I DCB Generation 

1EM28 32I DCB Generation 

IEM28 33I Final Assembly 

IEM28 34I Final Assembly 

IEM2835I Final Assembly 

IEM28 36I Final Assembly 

IEM2837I Final Assembly 

IEM2852I Final Assembly 

IEM2853I Final Assembly 

IEM2854I Final Assembly 

IEM28 55I Final Assembly 

IEM2865I Final Assembly 

IEM28 66I Final Assembly 

IEM2867I Final Assembly 

IEM2868I Final Assembly 

IEM2881I Final Assembly 

IEM2882I Final Assembly 

1EM2883I Final Assembly 

IEM2884I Final Assembly 

IEM28 85I Final Assembly 

IEM28 86I Final Assembly 

IEM2887I Final Assembly 

IEM2888I Final Assembly 

IEM28 97I Final Assembly 

IEM2898I Final Assembly 

IEM2899I Final Assembly 

IEM2900I Final Assembly 

IEM2913I Final Assembly 

IEM3088I Dictionary, Declare 

Pass 2 

IEM3136I- Dictionary, Declare 

31491 Pass 2 



PD 

RA 

RD 

RD 

RF,RG,RH 

RF,RG,RH 

RF,RG,RH 

RF,RG,RH 

RF,RG,RH 

RF,RG f RH 

RF,RG,RH 

RF,RG r RH 

RF,RG,RH 

RF,RG,RH 

RF,RG,RH 

RF,RG f RH 

RF,RG,RH 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

GA 

TF 

TF 

TF 

TF 

TF 

TJ 

TJ 

TJ 

TJ 

TO 

TO 

TO 

TO 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

UA 

UA 

UC 

UC 

UF 

EL 

EL 
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Message 
Number 


Logical Phase 


— . . 

Module 




IEM3151I- 


Dictionary, Declare 


EL 




Pass 2 






IEM3153I- 


Dictionary, Declare 


EL 




Pass 2 






IEM3154I 


Dictionary, Declare 


EL 




Pass 2 






IEM3156I 


Dictionai 
Pass 2 


■y, Declare 


EL 


IEM3162I 


Dictionary , Declare 


EL 




Pass 2 






IEM3167I- 


Dictionary, Declare 


EL 


31731 


Pass 2 






IEM3176I- 


Dictionary, Declare 


EL 


31901 


Pass 2 






IEM3199I- 


Dictionary, Declare 


EL 


32131 


Pass 2 






IEM3216I 


- 




AB,AM 


IEM3217I 


Dictionary 


Fl 


IEM3218I 


Dictionary 


Fl 


IEM3219I 


Dictionary 


Fl 


IEM3220I 


Dictionary 


Fl 


IEM3221I 


Dictionary 


Fl 


IEM3222I 


Compiler 


Control 


AB 


IEM3584I 


48 Character 
Preprocessor 


BX 


IEM3840I 


Compiler 


Control 


AA 


IEM3841I 


Compiler 


Control 


AA 


IEM38 42I 


Compiler 


Control 


AA 


IEM3843I 


Compiler 


Control 


AA 


IEM3844I 


Compiler 


Control 


AA 


IEM3845I 


Compiler 


Control 


AA 


IEM3846I 


Compiler 


Control 


AA 




Opt imi z at i on 


KA 


IEM3847I 


Compiler 


Control 


AA 


IEM3848I 


Compiler 


Control 


AA 


IEM3849I 


Compiler 


Control 


AA 


IEM3850I 


Compiler 


Control 


AA 


IEM3851I 


Compiler 


Control 


AA 


IEM3852I 


Compiler 


Control 


AA 


IEM3853I 


Compiler 


Control 


AA 


IEM3855I 


Compiler 


Control 


AA 


IEM3856I 


Compiler 


Control 


AA 


IEM3857I 


Compiler 


Control 


AA 


IEM3858I 


Compiler 


Control 


AA 


IEM3859I 


Compiler 


Control 


AA 


IEM3860I 


Compiler 


Control 


AA 


IEM3861I 


Compiler 


Control 


AA 


IEM3862I 


Compiler 


Control 


AA 


IEM3864I 


Compiler 


Control 


AA 


IEM3865I 


Compiler 


Control 


AA 


IEM3866I 


Compiler 


Control 


AA 


IEM3872I 


Compiler 


Control 


AA 


IEM3873I 


Compiler 


Control 


AA 


IEM3874I 


Compiler 


Control 


AA 


IEM3876I 


Compiler 


Control 


AA 


IEM3878I 


Compiler 


Control 


AA 


IEM3887I 


Compiler 


Control 


AA 


IEM3888I 


Compiler 


Control 


AB 


IEM3889I 


Compiler 


Control 


AB 


IEM3890I 


Compiler 


Control 


AA 


IEM3891I 


Compiler 


Control 


AA 


IEM3892I 


Compiler 


Control 


AA 


IEM3893I 

„ — 


Compiler 


Control 


AA 



(Message 










J Number 


Logical Phase 




Module 




|IEM38941 


Compiler Control 


AA 




|IEM3895I 


Compiler Control 


AA 




(IEM3896I 


Compiler Control 


AA 




[IEM3897I 


Compiler Control 


AA 




|IEM3898I 


Compiler Control 


AA 




|IEM3899I 


Compiler Control 


AL 




(1EM3900I 


Compiler Control 


AB 




(IEM3901I 


Compiler Control 


AB 




JIEM3902I 


Compiler Control 


AB 




[IEM3902I 


Compiler Control 


AB 




JIEM3903I 


Compiler Control 


AB 




|IEM3904I 


Compiler Control 


AA 




JIEM3905I 


Compiler Control 


AA 




JIEM3906I 


Compiler Control 


AA 




(IEM3907I 


Compiler Control 


AA 




JIEM39Q8I 


Compiler Control 


AA 




|IEM3909I 


Compiler Control 


AL 




JIEM3910I 


Compiler Control 


AB 




|IEM3912I 


Compiler Control 


AB 




(IEM3914I 


Compile -time 


Processor 


AB 




(IEM4106I 


Compile- time 


Processor 


AS 




[IEM4109I 


Compile -time 


Processor 


AS 




[IEM4112I 


Compile-time 


Processor 


AS 




|IEM4115I 


Compile -time 


Processor 


AS 




[IEM4118I 


Compile-time 


Processor 


AS 




(IEM4121I 


Compile-time 


Processor 


AS,BC, 


BG 


JIEM4124I 


Compile-time 


Processor 


BC,BG 




JIEM4130I 


Compile-time 


Processor 


BG 




JIEM4133I 


C ompi le - ti me 


Processor 


BC 




JIEM4134I 


Compile-time 


Processor 


BC 




(1EM4136I 


C ompi le - 1 i me 


Processor 


BC 




[IEM4139I 


Compile-time 


Processor 


BC 




|IEM4142I 


Compile-time 


Processor 


BC 




JIEM4143I 


Compile-time 


Processor 


BC 




JIEM4148I 


Compile-time 


Processor 


BC 




(IEM4150I 


Compile-time 


Processor 


BC 




JIEH4151I 


Compile-time 


Processor 


BC 




(IEM4152I 


Compile-time 


Processor 


BC 




(IEM4153I 


Compile-time 


Processor 


BC 




(IEM4154I 


Compile-time 


Processor 


BC 




JIEM4157I 


Compile-time 


Processor 


BC 




JIEM4160I 


Compile-time 


Processor 


BC 




JIEM4163I 


Compile-time 


Processor 


BC 




JIEM4166I 


Compile-time 


Processor 


BC 




|IEM4169I 


Compile-time 


Processor 


BC 




JIEM4172I 


Compile-time 


Processor 


BC 




JIEM4175I 


Compile-time 


Processor 


BC 




(IEM4176I 


Compile-time 


Processor 


BC 




JIEM4178I 


Compile-time 


Processor 


BC 




JIEM4184I 


Compile-time 


Processor 


BC 




JIEM4187I 


Compile-time 


Processor 


BC 




JIEM4188I 


Compile-time 


Processor 


BC 




JIEM419 0I 


Compi le-time 


Processor 


BC 




(IEM4193I 


Compile-time 


Processor 


BC 




JIEM4196I 


Compi le-time 


Processor 


BC 




(IEM4199I 


Compile-time 


Processor 


BC 




JIEM4202I 


Compile-time 


Processor 


BC 




JIEM42 05I 


Compile-time 


Processor 


BC 




JIEM4208I 


C ompi 1 e- 1 ime 


Processor 


BC 




JIEM4211I 


Compile-time 


Processor 


BC 




JIEM4212I 


Compile-time 


Processor 


BC 




JIEM4214I 


Compile-time 


Processor 


BC 





L . .. . . . 
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r . — 

(Message 








| Number 

L 


Logical Phase 


Module 


|IEM4215I 


Compile- time 


Processor 


BC 


(IEM4217I 


Compile-time 


Processor 


BC 


(IEM4220I 


Compile- time 


Processor 


BC 


(IEM4223I 


Compile-time 


Processor 


BC 


|IEM4226I 


Compile- time 


Processor 


BC 


1 JEM4229I 


Compile-time 


Processor 


BC 


(IEM4 232I 


Compile-time 


Processor 


BC 


JIEM4235I 


Compi 1 e -t ime 


Processor 


BC 


(IEM4238I 


Compile-time 


Processor 


BC 


(IEM4241I 


Compile-time 


Processor 


BC 


(IEM4244I 


Compile-time 


Processor 


BC 


|IEM4247I 


Compile-time 


Processor 


BC 


1IEM4248I 


Compile-time 


Processor 


BC 


|IEM4250I 


Compile-time 


Processor 


BC 


[IEM4253I 


Compile-time 


Processor 


BC 


(IEM4254I 


Compile-time 


Processor 


BC 


|IEM4256I 


Compile-time 


Processor 


BC 


|IEM4259I 


Compile-time 


Processor 


BC 


(IEM4262I 


Compile-time 


Processor 


BC 


(IEM4265I 


Compile-time 


Processor 


BC 


(IEM4271I 


Compile-time 


Processor 


BC 


|IEM4277I 


Compile-time 


Processor 


BC 


(IEM4280I 


Compile-time 


Processor 


BC 


(IEM4283I 


Compile-time 


Processor 


BC 


|IEM4286I 


Compile-time 


Processor 


BC 


1IEM4289I 


Compile-time 


Processor 


BC 


|IEM4 292I 


C ompi 1 e- 1 ime 


Processor 


BC 


|IEM4295I 


Compile-time 


Processor 


BC 


|IEM4296I 


Compile-time 


Processor 


BC 


|IEM4298I 


Compile-time 


Processor 


BC 


(IEM4299I 


Compile-time 


Processor 


BC 


(IEM4301I 


Compile-time 


Processor 


BC 


(IEM4304I 


Compile-time 


Processor 


BC 


(IEM4307I 


Compile-time 


Processor 


BC 


[IEM431GI 


Compile-time 


Processor 


BC 


(IEM4313I 


Compile-time 


Processor 


BC 


IIEM4319I 


Compile-time 


Processor 


BC 


(IEM4322J 


Compile-time 


Processor 


BC 


[IEM4325I 


Compile-time 


Processor 


BC 


(IEM4326I 


Compile-time 


Processor 


AV 


[IEM4328I 


Compile-time 


Processor 


BC 


(IEM4331I 


Compile-time 


Processor 


BC 


(IEM43321 


Compile-time 


Processor 


BC 


(IEM4334I 


Compile-time 


Processor 


BC 


|IEM4337I 


Compile-time 


Processor 


BC 


(IEM4340I 


Compile-time 


Processor 


BC 


(IEM4343I 


Compile-time 


Processor 


BC 


|IEM4346I 


Compi 1 e -t ime 


Processor 


BC 


|IEM4349I 


C ompi 1 e- 1 ime 


Processor 


BC 


|IEM4352I 


Compile-time 


Processor 


BC 


fIEM4355I 


Compile-time 


Processor 


BC 


[IEM4358I 


Compile-time 


Processor 


BC 


(IEM4361I 


Compile-time 


Processor 


BC 


[IEM4364I 


Compile-time 


Processor 


BC 


|IEM4367I 


Compile-time 


Processor 


BC 


|IEM4370I 


Compile-time 


Processor 


BC 


[IEM4373I 


Compile-time 


Processor 


BC 


(IEM4376I 


Compile-time 


Processor 


BC 



1 I- 



Message 








— 1 


Number 


Logical Phase 


Module 


1 


IEM4379I 


Compile-time 


Processor 


BC 


— 1 


IEM4382I 


Compile-time 


Processor 


BC 




IEM4283I 


Compile-time 


Processor 


BC 




IEM4391I 


Compile-time 


Processor 


BC 




IEM4394I 


Compi le-time 


Processor 


BC 




IEM4397I 


Compile-time 


Processor 


BC 




IEM4400I 


Compile-time 


Processor 


BC 




IEM4403I 


Compile-time 


Processor 


BC 




IEM4406I 


Compile-time 


Processor 


BC 




IEM44 07I 


Compile-time 


Processor 


BC 




IEM4409I 


Compile-time 


Processor 


BC 




IEM4412I 


Compile-time 


Processor 


BC 




IEM4415I 


Compile-time 


Processor 


BC 




IEM4421I 


Compi le-time 


Processor 


BC 




IEM4433I 


Compile-time 


Processor 


BG 




IEM4436I 


Compi le-time 


Processor 


BG 




IEM4439I 


Compile-time 


Processor 


BG 




IEM4448I 


Compile-time 


Processor 


BG 




IEM4451I 


C ompi le - ti me 


Processor 


BG 




IEM4452I 


Compile-time 


Processor 


BG 




IEM4454I 


Compi le-time 


Processor 


BG 




IEM4457I 


Compile-time 


Processor 


BG 




IEM4460I 


Compi le-time 


Processor 


BG 




IEM4463I 


Compile-time 


Processor 


BG 




IEM4469I 


Compile-time 


Processor 


BG 




IEM4472I 


Compile-time 


Processor 


BG 




IEM4473I 


Compile-time 


Processor 


BG 




IEM4475I 


Compi le-time 


Processor 


BG 




IEM4478I 


Compile-time 


Processor 


BG 




IEM4481I 


Compile-time 


Processor 


BG 




IEM4484I 


Compile-time 


Processor 


BG 




IEM4499I 


Compi le-time 


Processor 


BG 




IEM4502I 


Compile-time 


Processor 


BG 




IEM4504I 


Compi le-time 


Processor 


BG 




IEM4505I 


Compile-time 


Processor 


BG 




IEM4506I 


Compi le-time 


Processor 


BG 




IEM4508I 


Compile-time 


Processor 


BG 




IEM45101 


Compile-time 


Processor 


BG 




IEM4511I 


Compi le-time 


Processor 


BC 




IEM4514I 


Compile-time 


Processor 


BG 




IEM4517I 


C ompi le - time 


Processor 


BG 




IEM4520I 


Compile-time 


Processor 


BG 




IEM4523I 


Compi le-time 


Processor 


BG 




IEM4526I 


Compile-time 


Processor 


AS 




IEM4529I 


Compi le-time 


Processor 


BC f BG 




IEM4532I 


Compile-time 


Processor 


AS 




IEM4535I 


Compile-time 


Processor 


AS 




IEM4547I 


Compi le-time 


Processor 


AV 




IEM4550I 


Compile-time 


Processor 


BG 




IEM4553I 


Compi le-time 


Processor 


BG 




IEM4559I 


Compile-time 


Processor 


BG 




IEM4562I 


Compi le-time 


Processor 


BG 




IEM4570I 


Compile-time 


Processor 


BG 




IEM4572I 


Compi le-time 


Processor 


BG 




IEM4574I 


Compile-time 


Processor 


BG 




IEM4576I 


Compile-time 


Processor 


BG 




IEM4578I 


Compile-time 


Processor 


BG 




IEM4580I 


Compile-time 


Processor 


BG 


J 
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APPENDIX F: 



COMPILE-TIME PROCESSOR 



This appendix describes, for the Compile- 
time Processor Logical Phase, the internal 
formats of text and tables, communication 
region use, system interfaces and compiler 
control interfaces. 



Each procedure is assigned a unique 
number. The identifiers in the non- 
procedural text are given the proce- 
dure number 1. The built-in function 
SUBSTR is given the procedure number 
0. 



1. INTERNAL FORMATS OF TEXT 



The internal format of text used by the 
compile- time processor is EBCDIC, As 
source input is read into storage, non- 
macro text is moved directly into text 
blocks after translation to internal for- 
mat. Encoded compile- time statements and 
line numbers are also placed in text 
blocks . 



HASH-CHAIN- POINTER: 

The dictionary address of the next 
item on this hash chain. This address 
is zero if no item follows. 



TYPE: 



A byte which gives the attributes of 
the entry. The bits (if on) have been 
assigned the following meanings: 



Byte 1 Byte 2 Byte 3 Byte 4 
Word r — T T ! 

1 [LENGTH JPROC NO. | HASH- CHAIN- POINTER 

Y + x — 4 

2 J TYPE | VALUE/VALUE- POINTER 
>_ J._ T _ i 

3 j FLAGS J COUNT 



POINTERS/PARM-TYPES 



(EBCDIC NAME 

I . 

-L 

T 



-> EBCDIC NAME 



T 



h 



Format of a Dictionary Entry 

The compile-time processor uses a set of 
chained dictionary entries. Hashing tech- 
niques are used to add an item to the dic- 
tionary or to search for an entry. A 
compile-time processor dictionary item is a 
variable- length item with the following 
skeletal format: 

The fields defined in this skeleton have 
the following meaning and usage: 



LENGTH : 

The length of the EBCDIC name. If the 
item has no name (e.g., a constant) 
this field is zero. 



PROC NO. : 

The number assigned to the procedure 
in which the identifier was declared. 



Bit 


Meaninq 





fixed 


1 


character 


2 


bit 


3 


entry 


4 


label 


5 


INCLUDE identifier 


6 


iterative DO 


7 


constant 



VALUE/ VALUE- POINTER : 

If the item is fixed, this contains 
the value proper stored as a five- 
digit packed decimal number. Other- 
wise it contains a pointer to the 
value stored in IVBs. The definition 
of value for the various kinds of 
entries is given below. For a fixed 
macro variable, this contains the 
value. For a character variable, it 
contains a pointer to IVBs containing 
the value. For a procedure, it points 
to the text-block location of the 
code. For a label, it points to the 
text- block location of the label. If 
references to the label are found 
before the label is discovered, the 
value pointer temporarily points to a 
chain of IVBs with a description of 
every GOTO transferring to this label. 
This information is processed and dis- 
carded when the label is found. For 
an INCLUDE identifier, it points to 
the beginning of the included text. 



FLAGS: 

This set of bits provides additional 
information about the use of the item. 
They are used as follows: 
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Bit Meaning 

special entry bit 

1 DECLARE encountered (Phase 

BC) 

2 procedure body encountered 
(Phase BC) 

3 parameter 

4 used to indicate a procedure 
called by Phase II scan. 



number which have been used but not 
defined. This information is used 
only in Phase I and can therefore be 
overlaid. 

EBCDIC NAME: 

A variable length field, containing 
the EBCDIC name of the item. If the 
item has no name, this field is not 
included. 



Format of an Identifier Value Block (IVB) 



DECLARE encountered (Phase 
BG) 



6 


unused 


7 


ACTIVATE bit 


8 


"in-use" bit 



9 "indirect reference" bit 

10 "undefined" bit for multiple 
declarations 

11 left-hand side (LHS bit) 

This field occupies a half-word. 

COUNT: 

For a procedure entry, this field con- 
tains a count of the number of param- 
eters for the procedure. For INCLUDE 
identifier it is zero initially, and 
subsequently contains the initial line 
number assigned to the included text. 



To hold character and bit string values, 
some text blocks are organised into sub- 
blocks of 32 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in the preced- 
ing IVB. This copy is made to facilitate 
backup. The last four bytes consist of a 
condition code of one byte followed by a 
3-byte chain pointer. A set of these sub- 
blocks, chained together, is used to hold a 
value. The condition byte is 27 for all 
except the last sub- block in a value. In 
this last condition code byte the first bit 
is set to 1 to indicate "end-of- value." 
The remaining bits are a count of the sig- 
nificant bytes in the sub- block. There is 
a maximum of 27 significant bytes in an 
IVB. 

The chain address is used to point to 
the next sub-block in a value. The meaning 
of the chain address in the last sub-block 
in a chain depends on how the chain is 
being used. 



POINTERS/PARAM-TYPES : 

For a procedure, the field contains an 
encoding of the type information for 
each formal parameter. Two bits are 
reserved for each parameter. One 
indicates fixed j the other indicates 
character. If neither bit is set, 
this indicates that the entry declara- 
tion did not specify attributes for 
the para met ers . 

For a label, word 4 contains two poin- 
ters to dictionary items. One points 
to the dictionary entry for the imme- 
diately embracing iterative DO. The 
second half-word contains a pointer to 
the dictionary entry for the immedi- 
ately embracing INCLUDE. This pro- 
vides a method of checking the legali- 
ty of GOTOs. For an INCLUDE identifi- 
er, only the pointer to the immediate- 
ly embracing INCLUDE is kept. 

During Phase I, word 4 is used for 
labels and simple variables to hold 
two pointers. These form a bi- 
directional chain of all labels and 
variables having the same procedure 



These small chained sub-blocks are 
referred to as "identifier value blocks," 
or IVBs. 

Text blocks are allocated to hold IVBs 
as the need arises. Those IVBs not cur- 
rently in use are chained together into an 
availability chain and are re-used when 
needed. 

An example of a character string value 
held in IVBs is shown. The character 
string, which starts with AB and ends with 
CD, is 28 characters long. Two IVBs are 
thus required to hold the value. The 
string AB...C is put into the first IVB, 
while the last character, D, is put into 
another IVB. The condition code byte of 
the first IVB is 27. The second condition 
code byte is 10000001. The first "1" indi- 
cates end-of-value, while 0000001 is a 
count of the significant characters in the 
IVB. 



r — .____— — ™ T ^ r _ 1 f . — .„___ 

|?AB ... C { | — >|CD///// 

L_ . . X-_JL™J L . .. 



-28— > 1 3 



| 100000011 ? I 

X— . —X- -J 

<. — 28 — > < — 1— > <-3-> 
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Besides holding character -string values, 
IVBs are used in many places by the 
corapile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite length. 
These uses are noted elsewhere. 



Instruction Codes for the Compiie-time 
processor 

Compile- time statements are handled in two 
parts. During Phase BC, each statement is 
recognized and syntax checked. An encoded 
form of the statement is then placed into 
the current text block. During Phase BG 
these encoded statements are executed by an 
interpreter. 



All expressions are encoded in postfix 
Polish. A stack is used during Phase II to 
hold all operands. Conversions are done in 
Phase BG. 



Thus the expression (A+B) | |C, for 
example, is turned into 



A B + C| | 



To be more explicit, it is turned into the 
instructions 



PUSH A; 



PUSH B 



ADD; 



PUSH C; 



CONCAT 

The PUSH operator pushes its operand 
onto the phase II stack. This stack con- 
sists of 150 full words in scratch storage. 
The first byte of each call is a status 
byte; the last three bytes hold the value 
if the item is FIXED, a pointer if the item 
is CHARACTER or BIT, or an indirect 
reference to a dictionary entry if the 
indirect bit is on. 

The bits of the status byte have the 
following meaning if set to one: 



Bit Meaning 

FIXED 

1 CHARACTER 

2 BIT 

3 Indirect reference (i.e. 
to a dictionary entry) 



points 



Character string value does not 
"belong" to the stack and should 
not be erased when stack is 
popped. (Shared with Phase BG 
s can . ) 



Bits 6-8 are unused by the interpreter. 
They are reserved for Phase BG scan. 



All instructions generated by the Phase 
BC code generators begin with an operation 
byte. Depending on the operation, it may 
be followed by zero or more bytes of infor- 
mation which are intrinsically part of the 
instruction. Each instruction may have 
either or both of the characteristics STACK 
and FIXED. The definition of these charac- 
teristics follows: 

1. STACK. These instructions consist 
only of the one- byte operator. They 
take their operands, if any, from the 
Phase II stack. These operators 
correspond in general to the PL/I ari- 
thmetic and string operators. Depend- 
ing on whether they are unary or 
binary, they use the top one or two 
items on the stack. Before these 
operands are used, they are converted, 
if necessary, in place to the required 
type. After the items are used they 
are popped from the stack. The result 
of the operation is pushed onto the 
stack. 

The conversion, the popping, and the 
pushing are all implied for a stack 
operator. 

2. FIXED LENGTH. These operations are 
followed by a fixed number of bytes — 
usually two. These bytes, which usu- 
ally refer to a dictionary entry, 
serve as the operand (s) of the 
instruction. 

The table below shows the operations 
that are to encode macro instructions. The 
operand description indicates only the gen- 
eral operand type for a variable- length 
item. The count byte is omitted. 
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r T - 

| Mnemonic I 



Type 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 
FIXED 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

FIXED 

FIXED 

FIXED 

FIXED 

STACK 
FIXED 

STACK 
FIXED 

FIXED 

FIXED 

FIXED 

FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 



1 



Operand Description 



-*r- 
I 



Function 



ADD 

SUB 

MUL 

DIV 

UNMIN 

UNPLS 

ASSIGN 1 

NOT 

AND 

OR 

CONCAT 

EQU 2 

GT 2 

LT 2 

INC 

ABORT 

TRA 

TRAC 

TRAF 3 

INV 5 

TRAI* 

PUSH 

PUSHI 

UPDT 

ENTM 

RTNS 

ENB 

DSB 

DCL 

NOPD 



BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
BINARY; OPERANDS, RESULT FIXED 
UNARY; OPERAND, RESULT FIXED 
UNARY; OPERAND, RESULT FIXED 
UNARY; B CONVERTED TO TYPE OF A 

UNARY; OPERAND, RESULT BIT 
BINARY; OPERANDS, RESULT BIT 
BINARY; OPERANDS, RESULT BIT 
BINARY; OPERANDS, RESULT CHAR 
BINARY; OPERANDS, RESULT VARY 
BINARY; OPERANDS, RESULT VARY 
BINARY; OPERANDS, RESULT VARY 
Two-byte dictionary reference 
One-byte code 

Two-byte dictionary reference 
Two-byte dictionary reference 
Two-byte dictionary reference 

Two- byte dictionary reference and 
a one-byte argument count 

two two-byte dictionary references 

Two-byte dictionary reference 

Two-byte dictionary reference 

Three- byte line count 

no operand 

no operand 

Two- byte dictionary references 

Two- byte dictionary references 

Di ct ionary r ef er en ce 

Dictionary reference 



A+B 

A-B 

A*B 

A/B 

-B 

+B 

A=B (assignment) 

iB 

A£B 

A|B 

A||B 

A=B (equality) 

A>B 

A<B 

INCLUDE A 

ABORT processing 

Transfer to label 

Transfer to label 

Transfer to label 

if top of stack false. 

Invokes the procedure 

Transfer out of INCLUDE 

Push A onto stack 

Push address of A 
onto stack 

Put line count into LINCNT 

Enter interpreter 

Return to Phase II scan 

ACTIVATE A 

DEACTIVATE A 

DECLARE A 

No-ops the DECLARE, once 
executed 



446 



r t — t- 

| Mnemonic | Type | 



I— — +~ 



Operand Description 



Function 



+ „_ . _.___ . _ „_x_„ ., 



|. x x _. _„ 

^The ASSIGN operator does not push a result. The expression result is found on 
the PDS and is popped; the dictionary reference for the left hand side is the 
single argument. 

^Operand conversion for EQU f GT, and LT is as specified in IBM System/360 Operat- 
ing System; PL/I Language Specifications . 



CVT 6 | FIXED (Dictionary reference 

i I 

i I 

RETN" 7 | FIXED [Dictionary reference 

X_ 



[Convert to RETURNS 
(attribute 

1 

[Return from procedure A 

x .„. 



3 The TRAF uses and pops the top operand on the stack, 
string for conditional transfers. 



It is treated as a bit 



**This handles GOTOs out of included text. At this point CLNUP is performed. The 
arguments are (a) the dictionary entry for the label to which control is to pass; 
and (b) the dictionary entry for the current INCLUDE. 

5 The arguments for the invocation are contained on the stack. The dictionary 
reference is to the procedure entry. 

6 This converts the top of the stack to the attributes specified in the RETURNS 
attribute for the procedure A. 

7 This terminates the invocation of procedure A and converts the value on the top 
of the stack to the attribute specified on the PROCEDURE statement. 



2. COMMUNICATIONS REGION USE 

The region from offset to offset 304 ( ZCOMM) is used as a general communications 
region throughout the compiler, including the compile-time processor. The region 
from ZCOMM to ZCOMM+463 is also used by the compiler ; however, during the compile- 
time processor phase, this region is used exclusively by the compile-time proces- 
sing. The details of this usage are shown below. 



r — 


1 Dec. 


~t r 








| Name 


[ Offset 


I Length) 




Contents 


L 


-+ 


_X _. X. 








| STATUS 


| ZCOMM 


1 1 1 


Byte 1: Bit 



1 


not used 

PROCSW — processing macro procedure 








Note: 


2 


FINDBIT -- SRHDIC has found dictionary item 








Condition 


3 


ERSW — diagnostic produced in Phase II 








Settings 


4 


EFSW — end of file encountered (input) 








"1" = set 


5 


LEVBIT — processing IVB 








"0" = off 


6 
7 


INCSW — processing included text 
PH2SW — in Phase II 


|STA2 


| ZCOMM+1 


I 1 1 


Byte 2: Bit 



1 

2 
3 
4 
5 
7 


OLDINC — processing already listed INCLUDE 

SKPSW — indicates entry to END from PRCSCN 

NOPERCENTSW — look ahead for % completed 

SYSOPN — SYSLIB DCB is open 

MACRO — indicates current macro action 

PR2SW — indicates in macro procedure 

ARG — indicates that Phase II is looking for 

arguments of activated procedure 


| SUBSTRDR | ZCOMM+ 2 


1 2 | 


Holds dictionary reference of level SUBSTR entry 


[TOKPTR 


[ZCOMM+4 


1 ** 1 


Address of 
lute, right 


character being scanned, text reference or abso- 
justified 



L X X 



— . J 
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r" " 

| Name 

H— — ~ 

JINCPTR 


r . 

Dec. 
i Offset 

t— — — ^ 

ZCOMM+8 


r 

Length 

\ ■ \ 

4 


r „___ _ . — ._. . , . _ — . , ._. .. . 

Contents 
(.-_„„„_„„_„„- „ . „ _ ._ . 

; Save area for TOKPTR 


1 INBUF 


, ZCOMM+12 


4 


Absolute address of 132-character input buffer, right 
justified 


| OUTBUF 


ZCOMM+16 


4 


Absolute address of output buffer, right justified 


| PDSPTR 


ZCOMM+20 


4 


Absolute address to top of pushdown stack, right justified 


| ENDBUF 


ZCOMM+24 


4 


Absolute address to last significant character in input 
buffer, right justified 


| WHERE 


ZCOMM+28 


4 


Address of next available byte in output buffer, text 
reference or absolute, right justified 


| IVBPTR 


ZCOMM+32 


4 


Text reference to next free IVB, right justified 


I LINCNT 


ZCOMM+36 


4 


Holds current line number, right justified 


| TEMPT R 


ZCOMM+4 


2 


Dictionary reference to top of "in- use" temporary stack 


| DCENTY 


ZCOMM+42 


2 


Dictionary reference for chaining dictionary items 


| CURING 


ZCOMM+44 


2 


Dictionary reference to INCLUDE entry being processed 


|CURDO 


ZCOMM+46 


2 


Dictionary reference to DO entry being processed 


| PROCNO 


ZCOMM+4 8 


1 


Current procedure number, right justified 


JNXTPC 


ZCOMM+4 9 


1 


Next available procedure number, right justified 


| DPHCNT 


ZCOMM+50 


2 


Current depth count 


[CODE 


ZCOMM+52 


1 


Code for token type 


| LENGTH 


ZCOMM+54 


2 


Number of significant characters in TOKBUF, right justified 


(MXDPTH 


ZCOMM+56 


2 


Integer value of depth of replacement, right justified 


(INDEX 


ZCOMM+58 


2 


Hash table index for dictionary routines 


(ATTR 


ZCOMM+6 


2 


"Type"* byte for dictionary routines 


| GRSAVE 


ZCOMM+64 


4 


Save area for GRG 


| NEWIVB 


ZCOMM+68 


4 


Pointer to IVB chain to be freed or obtained 


(VALUE 


ZCOMM+72 


4 


Type and value/ value pointer for dictionary entries 


| PREINB 


ZCOMM+76 


4 


Pointer to header information for INBUF 


(BUFSRT 


ZCOMM+8 


4 


Pointer to left margin in INBUF 


| INIVB 


ZCOMM+8 4 


1 


Current busy block number 


| OUTIVB 


ZCOMM+8 5 


1 


Current busy block number 


| TXTBLK 


ZCOMM+86 


1 


Current busy block number 


(INVBAB 


ZCOMM+88 


4 


Current block used in absolute address calculation 


| OUTIVBAB 


ZCOMM+92 


4 


Current block used in absolute address calculation 



L_ X_„ . -X -X___. — ._. — 



__. . - — ._ J 
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r— — — 

| Name 
|~- —— I 

j TXTBLKAB 


r — _ ._. ^ 

Dec. 
Offset 

h— "I 

ZCOMM+96 


r 

Length 

h — H 

4 


... . — .__ . — - — ______ — ____„ __„„ — _„__- 

Contents 
Current block used in absolute address calculation 


(MTABC 


ZCOMM+100 


4 


Address of translate table for TOKSCN and FINDPC 


1 TXTEST 




4 




|BUF1 
(BUF2 


ZCOMM+108 
ZCOMM+112 


4 
4 


Pointer to first INCLUDE buffer j 

I Not used 
Pointer to second INCLUDE buffer) 


J LIBDCB 


ZCOMM+116 


4 


Pointer to DCB for SYSLIB data set 


|USRDCB 


ZCOMM+120 


4 


Pointer to DCB for user data sets 


|MAXLCT 


ZCOMM+124 


4 


Maximum line count used so far 


| PRCWHR 


ZCOMM+128 


4 


Pointer to next byte in which to put procedure text 


1 DCENTYAB 


ZCOMM+132 


4 


Absolute address of dictionary entry 


|SCHK 


ZCOMM+136 


4 


Pointer to level 1 SUBSTR entry 


| PROCCL 


ZCOMM+140 


2 


Dictionary reference of procedure check list 


(OUTERCL 


ZCOMM+142 


2 


Dictionary reference of outer check list 


| PROCCLDR 


^COMM+144 


2 


Dictionary reference for PROCCL cell 


JOUTRCLDR 


ZCOMM+146 


2 


Dictionary reference for OUTERCL cell 


| DECIDR 


ZCOMM+148 


4 


Dictionary reference of dictionary entry for DECIMAL 1 


| CURPRC 


;ZCOMM+152 


4 


Pointer to current procedure entry on PDS 


JTOKBUF 


ZCOMM+16 4 


32 


32- byte buffer, characters inserted left justified 


1HASTB 


ZCOMM+300 


128 


64 two™ byte dictionary references to hash chains for named 
items 


| CONSCH 


ZCOMM+428 


2 


| Dictionary reference to constant chain 


[ SPECCH 


ZCOMM+43 


2 


I Dictionary reference to special chain -- debugging only 



i -J ._. „__± ______ X, . ._- 



— . - . J 



3. COMPILE-TIME PROCESSOR, TIME SHARING 
SYSTEM, AND COMPILER CONTROL INTERFACES 

Although the compile-time processor makes 
considerable use of the time sharing system 
facilities, it usually does so indirectly 
through the compiler control. However, 
those time sharing system services required 
to support the INCLUDE facility are invoked 
directly. Since included text is required 
to be a member of a partitioned data set, 
it is those data management facilities 
which support VPAM which are used. Specif- 
ically the macros OPEN, FIND, CLOSE, and 
GET are used by various parts of the 
INCLUDE handler. Details of these macros 
can be found in IBM System/3 60 Time Sharing 
System: Assembler User Macro Instructions . 



The root phase is invoked by the compil- 
er control if the MACRO option is speci- 
fied- All subsequent communication between 
the compile- time phases and the compiler 
control is done by way of cells in the com- 
munications region. This includes the pa- 
rameters passed to the compiler service 
routines, the decoded options which are 
tested, and the cells set to indicate the 
status of source margins and mode (EBCDIC) 
of the output. 

Specifically, the following cells in the 
communications region are either used or 
set: 

PARI 

PAR2 
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ZTV ZUGC ZTXTRF 

ZMYNAM 

ZUTXTC ZTXTAB 
MCSIZE 

CCCODE ZURC ZCHAIN 

TXTSZ 

ZABORT ZALTER 
ZSOR — column number in which to begin 
scan of input text 

ZLOADW ZDABRF 
ZMAG — column number in which to end 
scan of input text 

ZDICRF ZEND 
ZTRAN1 

The following compiler control routines ZUERR ZUBW 
are referenced: 

ZUPL RELESE ZDRFAB 

ZURD RLSCTL 
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APPENDIX G: TABLE HANDLING ROUTINES FOR K PHASES 



The purpose of these routines is to permit 
the user to build, scan and otherwise mani- 
pulate tables in text blocks without any 
concern for physical block boundaries, sta- 
tus of text blocks or maintaining pointers 
to first, last and current table entries. 
The routines also handle text, which is 
assumed to be a special type of table. 

The user may: 

1. Define a table by using the IEMKTCA 
macro to set up a TCA (task communica- 
tion area) control block. The address 
of the TCA is always passed to a table 
handling routine and identifies the 
table concerned. Most TCAs will be 
held in the local communications 
region in phase KA. 

2. Add new entries to the end of a table. 
Table entries may be of fixed or vary- 
ing lengths. For fixed length 
entries, the length is held in the TCA 
for the table. For varying length 
entries, the TCA contains information 
enabling the routine to determine the 
length of the entry. Fixed length 
entries may be built in storage and 
moved into the table by the routines, 
or space allocated for an entry by the 
routines and the entry built directly 
into the table. For varying length 
entries, the entry must be built in 
storage and moved into the table by 
the routines. 

3. Scan a table either forwards or back- 
wards. The user requests the address 
and text reference of the 'next' table 
entry. The user may position a scan 
to the start or end of a table, or to 
some intermediate point. 

4. Reference individual table entries at 
random. This may be done while a 
sequential scan of the table is being 
performed, and will not affect the 
scan. 



entry of a sequential scan, either 
creating or reading, is automatically 
•locked in 1 . 

A randomly referenced entry is only 
locked by an explicit lock request. 

A current scan entry may be unlocked 
explicitly by deactivating the table, 
or implicitly by making or requesting 
the next entry, or repositioning the 

scan. 

A random entry may be explicitly 
unlocked, or implicitly unlocked by 
another random reference to the same 
table specifying lock. 

All locks are released when a table is 
deactivated. The total number of 
locked entries for all tables must not 
exceed four at any one time. 

Activate or deactivate a table. All 
tables are initially deactivated. 
Tables are always activated implicit- 
ly, initially by a request to add an 
entry to the table, and subsequently 
by any valid request for an operation 
to be performed on that table. 

A table may be deactivated by an 
explicit request. Deactivation causes 
all locked entries to be unlocked, and 
renders all absolute addresses of 
entries in that table invalid. 
Sequential scans are not otherwise 
affected. 

A table is implicitly deactivated by a 
request to free the table (as in 5) , 
or if the table contains no locked 
entries and any call is made to the 
table handling routines. 



DESCRIPTION AND FORMAT OF MACRO 
INSTRUCTIONS 



5. Specify that a table is to be deleted. 

6. Specify that entries are to be 'locked 
in' . This means that the absolute 
address of a table entry will remain 
valid until the entry is explicitly or 
implicitly unlocked, or the table is 
deactivated. (See 7). If an entry is 
not * locked in f , any subsequent call 
to the table handling routines may 
render the absolute address returned 
for the entry invalid. The current 



The IEMKTCA Macro 

This macro is used to set up a TCA (task 
communication area) control block describ- 
ing a table to be processed by the table 
handling routines. The macro has two 
functions: 

1. Sets up global variables describing 
tables which are used by the IEMKTAB 
macro to generate appropriate linkages 
to the table handling routines. 
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2. Used with the R operand to set up a 

TCA control block the address of which 
is passed to the table handling rou- 
tines to identify the table. The 
•table identifier* is the same as the 
•table2 identifier" used in IEMKTAB 
macro instructions. It must also be 
the label of a fullword containing, at 
execution time, the address of the TCA 
set up by a IEMKTCA macro instruction 
with the R operand. 



actual code is to be generated from 
the macro instruction. It provides a 
label for the TCA which may be used in 
an A type address constant having the 
label identifier as its label. 

Example of use: 

TABLE1 DC A(ATABl) 

TABLE1 DTCA ATAB1, ET=F, L=8, OPS=S 



Format ; 

(F> 
table identifier IEMKTCA [,R,]ET=(V) 

(T) 
[,Ir=entry length] [,OPS= IS] £R] ] 

[,NPTRS=no of scan pointers.] 

I ,DLF=displa cement to length field] 

Description of Parameters 



ET= entry type 

This parameter indicates the type of 

entry contained in the table, as 

follows: 

F - fixed length entries 

V - variable length entries 

T - text 

L= entry length 

This parameter is required if ET=F is 
coded, and indicates the length of an 
entry. 

OPS=operations 

This parameter indicates the type of 
operations to be performed on the 
table, as follows: 

S - sequential scans will be performed 
R - random references will be made 

NPTRS=n 

This parameter permits more than one 
sequential scan of one table to be 
made at one time. 'n' indicates the 
maximum number of sequential scans 
which will be in progress at any one 
time. An individual scan is identi- 
fied by coding PTR=n in the SET, SETZ, 
or SCAN operation (see IEMKTAB macro). 
The default value is n=l if OPS=S or 
RS is coded, or OPS is omitted, other- 
wise n=0. If ET=T is coded, this pa- 
rameter must be omitted and only one 
scan is permitted. 

DLF=dist. to length field 

This indicates the displacement from 
the first byte of the entry to the two 
byte field containing the length of 
the entry. It must be coded if ET=V 
is coded. 



This parameter is supplied only if 



Note : The label on the IEMKTCA macro 
instruction statement is not made the label 
of any generated statement, so no multiple 
definition will result. Its only use is to 
provide a link between the two macros IEMK- 
TCA and IEMKTAB. 



The IEMKTAB Macro 

This macro specifies operations to be per- 
formed on a table or tables. The table to 
be operated on is always specified by supp- 
lying the address of its TCA. 

Format : 

(label] IEMKTAB code, parameters 

Note : , code i specifies the type of opera- 
tion, and the parameters depend on this as 
shown below: 



r r 

| Code | 



Parameters 



I 



BLDT 
J. _+_ 

DR 



h 



BLDC 



ULDR 



J. _ 

SET 

H 

SETZ 

j. „ 

SCAN 



FREE 



Table Identifier, address of entry 
skeleton C,AATO=] [,SAT0=] 



Table Identifier £,AATO=] [,SATO=] 



Table Identifier, SA=(,AATO=] (N) 

[,OPT=CD] 



(Table Identifier,...) or Table 
Identifier 



Table Identifier, SA=[,PTR=n] 



(F) 



H 



Table Identifier [,OPT=(B)] 
[ , PTR=n] 

Table Identifier [,AATO=] [,SATO=] 

(F) 
[ , OPT= ( V) ] [ , PTR=n ] [ , ETA= ] 
I , TRTAB= , FBTO= ] [ , PSATO= ] 



(Table Identifier, 
Identifier 



. ) or Table 



H 



DEACTI (Table Identifier,...) or Table 
Identifier 

(TEST j Table Identifier, NTA= 

t jl 



-H 



452 



Notes: The 'Table Identifier* operand must Description of Table Handling Operations 

appear in the label field of a IEMKTCA 

macro instruction physically preceding the 

IEMKTAB macro instruction. The last three BLDC 

operands of the SCAN operation (TRTAB, 

FETO # PSATO) only apply to text tables 

ET = T in IEMKTCA) . 



Description of Keyword Parameters 



Adds an entry to the end of a table. 
The entry is built in storage by the 
user and moved to the table by the 
table handling routines. The routines 
return the symbolic and absolute 
addresses of the new entry. 



AATO 



A register designation or address of a BLDT 
full word in which the returned abso- 
lute address is to be placed. 



SATO 



SA 



OPT 



Address of a three byte field in which 
the returned symbolic address is to be 
placed. 



Address of a three byte area contain- 
ing a symbolic address. DR 



Options applying to this operation. 
The option letters may appear in any 
order . 



The table handling routines allocate 
space for a new entry at the end of 
the specified table, and return the 
absolute and symbolic addresses of the 
space. The user builds his entry in 
the space allocated. This operation 
can only be specified if ET=F was 
coded in the IEMKTCA macro 
instruction. 



Direct (random) reference. The entry 
is identified by the SA parameter. 
The absolute address of the entry is 
returned. If OPT=L is specified, the 

entry is locked in. 



PTR 



ULDR 



ETA 



Specifies the pointer which identifies 
the current record of the scan. "n* 
must not exceed the number specified 
in the NPTRS parameter of the IEMKTCA 
macro instruction. C indicates the 
end of table pointer for creating new 
entries. 



Specifies the address of a routine to 
be given control when the end of a 
table is detected during a sequential 
scan. 



TRTAB 



Address of translate table for selec- 
tive scan. 



FBTO 



Location or register in which non-zero 
function byte from translate operation 
is to be placed. 



PSATO 



Address of a three byte area into 
which the symbolic address of the pre- 
vious entry is to be placed. 



NTA 



Address of routine to receive control 
if table is null. 

Note : A register designation (absolute 
expression in parentheses) identifying gen- 
eral registers 2-9 may be used in the AATO, 
SATO, SA, ETA, FBTO, PSATO and NTA 
operands. 



SET 



The last directly referenced entry for 
this table that specified OPT=L, is 
unlocked. 



The sequential scan is positioned at 
the entry identified by the SA parame- 
ter. The next SCAN operation causes 
the absolute address of this entry to 
be returned. PTR=n (see SETZ) . 



SETZ 



The sequential scan is positioned to 
the beginning of the table if the OPT 
parameter is omitted or OPT=F is 
coded, or to the end of the table if 
OPT=B is coded. The next SCAN opera- 
tion returns the absolute address of 
the first or last table entry to be 
returned. The PTR=n parameter indi- 
cates which sequential scan is meant 
if more than one is in progress at one 
time. f n' may not exceed the number 
specified in the NPTRS parameter of 
the IEMKTCA macro instruction. PTR=1 
is assumed if the parameter is 
omitted. OPT=B may not be coded if 
ET=V or T is coded in the IEMKTCA 
macro instruction for the table. 



SCAN 



The symbolic and absolute addresses of 
the next entry in the table are 
returned. If a SET or SETZ was the 
last operation, the next entry is that 
pointed to by the SET or SETZ opera- 
tions. The options F or B indicate: 
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F a forward scan is required. This is 
the default, 

B a backward scan is required. This 
may only be specified if ET=F is coded 
in the IEMKTCA macro instruction. 

Selective Scanning Facilitiy 

This facility is available for text tables 
only (ET=T in IEMKTCA macro instruction) . 
The TRTAB operand identifies a 256 byte 
translate table which is used to translate 
the code byte of the entry. If the result 
is zero, the scan continues until the rou- 
tine exits to the ETA address. If the 
result is non-zero, it is placed in the 
register or location identified by the FBTO 
operand, and control returns to the user, 



the AATO and SATO operands identifying the 
selected entry. 



FREE 



One or more tables are completely 
freed and deactivated. The next 
operation on the table must be a BLDC 
or BLDT. 



DEACT 



The table or tables are deactivated. 
All locked entries are unblocked and 
all absolute addresses of entries 
rendered invalid. 



TEST 



Tests for a null table. If table is 
null, control is passed to routine 
identified by OTA pointer. 
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APPENDIX H: CONTROL ROUTINES AND TRANSFER VECTORS 



TRANSFER VECTOR TABLE 



Entry to the various compiler control rou- 
tines is via a transfer vector. Details of 
the transfer vector appear below. 



r — n 

|Hex. 
[Offset 
l~- H 

1 3 


r 1 

Name , 

h — - 

ZUPL 


r .. . , 

Description 

— . — . . , — ., ._. ,___, — 

Print a line 


I c 


ZURD 


Read a card 


| 10 


ZUGC 


Get scratch storage 


| 14 


ZUTXTC 


Get text block 


| 18 


ZURC 


Release scratch storage 


| 1C 


ADDLST 


Initialization List 


| 20 


ZABORT 


Dump and go to error 
message routines 


| 24 


ZLOADW 


Load and return to 
caller 


I 28 


ZDICAB 


Make dictionary entry. 
Absolute address 
returned 


| 2C 


ZDICRF 


Make dictionary entry. 
Dictionary reference 
returned 


| 30 


ZUERR 


Make error message entry 


| 34 


ZDRFAB 


Convert dictionary 
reference to absolute 
address 


| 38 


ZLOADX 


Load with overlay and 
return to caller 


| 40 


| REQUEST 


Give a list of phase 
names required or not 
wanted for this 
compilation 


| 44 


RELESE 


Release all named phases 


| 48 


RLSCTL 


Release all named phases 
and pass to next phase 


| 4C 


| ZDUMP 


Dump specified main 
storage and continue 



r _ — 1 

(Hex. | 
(Offset 
l 4 


Name 

4 


._.— n 

Description 

J 


r 1 

I 50 I 


1 
ZTXTRF 


Converts absolute 
address to text 
reference 


| 54 


ZTXTAB 


Convert text reference 
to absolute address 


| 58 | 


ZCHAIN | 


Find next block in chain 


I 5C 


ZALTER 


Change text block status 


| 60 


ZDABRF 


Convert absolute address 
to dictionary reference 


| 64 


ZNALRF 


Make unaligned dic- 
tionary entry. 
Reference returned 


| 68 


ZNALDB 


Make unaligned dic- 
tionary entry. Absolute 
address returned 


| 6C 


ZEND 


Terminate job 


| 70 


ZULF 


Write on load file 


| 74 






I 78 


IEMAC 


Intermediate file 
routine 


| 80 


RLSCTLX 


Release all named phases 
and hand control to the 
next phase, after having 
loaded it with overlay 


| 84 


RECONS 


Reconstitute instruc- 
tions in IEMAL 


| 88 


DYNAMIC 


Pass control to the 
dynamic dump routines, 
if required 


I 8C 


IEMAL 


Address of second con- 
trol phase 


| 90 


FOOTPRNT 


Indicates which output 
modules are loaded and 
that compiler is invoked 


| 94 


IEMAF 


DEFAULT options 


I 98 


RESURCT 


Routine to clean-up in 
case of reinvocation 
after interrupting out 



J— 
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COMPILER CONTROL ROUTINES 



Name 



Hex. 
Offset 



Details 



ADDLST 



1C 



Description : Initializes a list of address in second table of AA 
Parameters : None 



RELESE 



44 



Description ; Deletes list of phases 

Parameters Passed 
PARI byte unused 

1-3 address of list of phases to be deleted. The list of 
phase names, each of two characters, is 
terminated by the name ZZ 

Parameters Returned: None 



REQEST 



40 



Description : Marks phases as 'wanted* or 'not wanted' 

Parameters Passed 
PARI byte unused 

1-3 address of list of phases to be marked as 'wanted' 

PAR2 byte unused 

1-3 address of list of phases to be marked as 
•not wanted 1 

Parameters Returned : None 

Note : A phase list containing only f ZZ f is effectively a null list. 
During module AM phases of the compiler are all marked as either 
normally loaded or not loaded. A phase which is normally not loaded 
is only loaded if it has previously been marked as 'wanted'. A 
phase which is normally loaded will always be loaded unless it has 
previously been marked as 'not wanted' 



RESURCT 



98 



Description 

Performs clean-up on compiler reinvocation. Examines footprint and 
unloads all loaded output modules, except control output module? 
closes and releases load and macro files , if they are open; rein- 
itializes code in control output module. 

Parameters Passed 

Examines FOOTPRNT at hex offset 90 in transfer vector table. 



RLSCTL 



48 



Description : 

Deletes a list of loaded phases and passes control to next phase 

Parameters Passed 
PARI byte unused 

1-3 address of list of phases to be deleted before next 
phase is loaded 

PAR2 byte unused 

1-3 Ca) zero, if next phase is to be taken from compiler 
control phase directory 
(b) address of phase name to be loaded next 

Parameters Returned (to next phase) 
PARI byte unused 

1-3 address of new phase load point 

Note : List of phases given by the address in PARI is deleted. Then 
the next phase is selected and loaded and control is passed to a 
point two bytes from the load point of the new phase 
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T ' T 

Hex. 
Offset 



Name 



Details 



RLSCTLX 



80 



Description : Releases all named phases and passes control to 
next phase. The next phase may be loaded more than once 

Parameters Passed 
PARI byte unused 

1-3 address of list of phases to be deleted before next 
phase is loaded 

PAR2 byte unused 

1-3 (a) zero of next phase is to be taken from compiler 
control phase directory 
(b) address of phase to be loaded next 

Parameters Returned (to next phase) 
PARI byte unused 

1-3 address of load point of new phase 

Notes: 

1. List of phases given by the address in PARI is deleted. The 
next phase is selected and loaded and control is passed to a 
point two bytes from the load point of the new phase 

2. The entry point RLSCTLX does not cause the compiler control rou- 
tines to advance the pointer in the table of phases still to be 
loaded, and does not cause the phase to be marked as already 
loaded once 



H- 



ZABORT 



20 



Description : Deletes currently loaded phases (after dumping if 
DP SPECIFIED IN PARAMETER) AND PASSES CONTROL TO Error Editor 

Parameters Passed : None 

Parameters Returned: None 



ZALTER 



5C 



Description : Changes text clock status 

Parameters Passed 
PARI byte unused 

1 text block number 
2-3 unused 

PAR2 bytes 0-2 unused 

3 status required 
bits 0-3 unused 

4 X 1 ** 1 •busy' 

5 X'3' 'wanted' 

6 X'2' 'not wanted* 

7 X'l' 'free' 

Parameters Returned : PAR2 is unaltered and may be used in successive 
calls without reloading 

Note : 

1 . Terminology : 

•busy' - lock into storage i.e., address preserved 
"Wanted' - information required, do not spill unless necessary 
'Not wanted' - information required, block may be spilt 
'Free' - information no longer required 
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T— T 

Hex. 
Off set 



Name 



f— 



-+- 



Details 



Z CHAIN 



58 



Description : Finds next text block in chain 

Parameters Passed 

PARI byte unused 

1 current block number 
2-3 unused 

PAR2 bytes 0-2 unused 

3 status required for old block 

Parameters Returned 
PARI byte unused 

1-3 text reference of start of new block 

PAR2 byte unused 

1-3 absolute address of start of new block 

Note : The new text block is marked as busy 



ZDABRF 



60 



(._ 



ZDICAB 



28 



Description : Converts absolute address to dictionary reference 

Parameters Passed 

PARI bytes 0-1 unused 

2-3 any reference in the same dictionary block 

PAR2 byte unused 

1-3 absolute address to be converted 

Parameters Returned 
PARI bytes 0-1 unused 

2-3 dictionary reference corresponding to absolute 
address 
Notes : 

1. No check is made that this address is the start of a dictionary 
entry, or that it is any other specific point 

2, No check is made that the address is in the same block as the 
dictionary reference passed. If this is the case, that is, the 
parameters passed are in error, the dictionary reference 
returned may not correspond to the address 



Description : Makes aligned dictionary entry and returns absolute 
address 

Parameters Passed 
PARI byte unused 

1-3 address of entry Cas built by calling phase) 

PAR2 bytes 0-1 unused 

2-3 length of entry ( binary) 

Parameters Returned 
PARI byte unused 

1-3 dictionary entry address 

PAR** bytes 0-1 unused 

2-3 reference to some point in the same dictionary block 
Notes : 

1. The entry built is constructed complete with code byte and 
length fields. The length passed in PAR2 is the length of the 
complete entry 

2. ZDICRF performs the same function and returns more information, 
with no loss in efficiency 
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Name 



Hex. 
Offset 



Details 



ZDICRF 



2C 



Description : Makes an aligned dictionary entry and returns its 
dictionary reference and absolute address 

Parameters Passed 
PARI byte unused 

1-3 address of entry 

PAR2 bytes 0-1 unused 

2-3 length of entry (binary) 

Parameters Returned 
PARI bytes 0-1 unused 

2-3 dictionary reference of entry 

PAR4 byte unused 

1-3 dictionary entry address 



Note: 



See ZDICAB 



J~ 



ZDRFAB 



34 



Description : Converts dictionary reference to absolute address 

Parameters Passed 

PARI bytes 0-1 unused 

2-3 dictionary reference 

Parameters Returned 
PARI byte unused 

1-3 absolute address 



ZDUMP 



4C 



Description : Dumps specified storage and continues 

Parameters Passed 

PARI byte X , 00 i 
1-3 unused 

PAR3 bytcis 0-3 either Ca) zero 

or Cb) address of a page heading to be printed 

Parameters Returned: None 



Notes: 



i— 



The areas to be dumped, and the editing to be done on them, is 
given in the DUMP parameter to the compilation 

The dump is only produced if the two character name in ZMYNAM 
matches one of the phase names specified in the DUMP parameter 

The message "PHASE zz COMPLETED" is printed if 'P f is included 
in the DUMP parameter even thougth control is returned to the 
point of invocation in the phase 

The registers printed by the dump routine are not necessarily as 
when control was passed from the calling phase 



ZEND 



6C 



Description : Terminates compilation immediately 
Parameters Passed : None 
Parameters Returned : None 
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T — T 

Hex. 
Offset 



Name 



Details 



ZLOADW 



24 



Description : Loads phase and returns control to calling phase 

Parameters Passed 

PARI byte unused 

1-3 address of name of phase to be loaded 

Parameters Returned 
PARI byte unused 

1-3 address of phase load point 

Notes : 

1. Control is returned to calling phase, not to phase just loaded 

2. The entry point ZLOADW causes the phase loaded to be marked as 
such, and therefore cannot be loaded again (see ZLOADX) 



ZLOADX 



38 



Description : Loads phase and control is returned to calling phase 

Parameters Passed 
PARI byte unused 

1-3 address of name of phase to be loaded 

Parameters Returned 
PARI byte unused 

1-3 address of phase load point 

Notes : 

1. Control is returned to calling phase, not to phase loaded 

2. The phase loaded may be loaded again, since it is not marked as 
loaded by this entry point (see ZLOADW) 



ZNALAB 



68 



Description : Makes unaligned dictionary entry and returns absolute 
address 

Makes unaligned dictionary entry and returns absolute address 

Parameters Passed 
PARI byte unused 

1-3 address of entry 

PAR2 bytes 0-1 unused 

2-3 length of entry (binary) 

Parameters Returned 
PARI byte unused 

1-3 dictionary entry address 

PAR4 bytes 0-1 unused 

2-3 reference to some point in the same dictionary block 



Notes: 



The entry is constructed exactly as it will appear in the dic- 
tionary, complete with code byte and length field 

ZNALRF performs the same function and returns more information, 
with no loss in efficiency 
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T T 

Hex, 
Offset 



Name 



H- 



Details 



ZNALRF 



64 



Description : Makes unaligned dictionary entry and returns its 
dictionary reference and absolute address 

Parameters Passed 

PARI byt€! unused 

1-3 address of entry 
PAR2 bytes 0-1 unused 

2-3 length of entry (binary) 

Parameters Returned 
PARI bytes 0-1 unused 

2-3 dictionary reference of entry 
PAR** byt€is unused 

1-3 dictionary entry address 

Note: See ZNALAB 



H- 



ZTXTAB 



54 



Description : Converts text reference to absolute address 

Parameters Passed 

PARI byte X'80 1 if status of block to remain unchanged 
not X'SO 1 - text block set to busy 
1-3 text reference to be converted 

Parameters Returned 
PARI byte unused 

1-3 absolute address corresponding to text reference 



ZTXTRF 



50 



Description : Converts absolute address to text reference 

Parameters Passed 
PARI byte unused 

1 block number of text block containing absolute address 

2-3 unused 
PAR2 byte unused 

1-3 address to be converted 

Parameters Returned 
PARI byte unused 

1-3 text reference corresponding to absolute address 

Note : This routine is of use in only a few cases since it requires 
to be passed the block number containing the absolute address, and 
only returns the offset from the start of the block. This offset 
can be calculated, if the text block is scanned sequentially, by 
subtracting the address of the start of the block 



ZUERR 



30 | Description : Inserts diagnostic messages in dictionary 

Parameters Passed 

PAR5 bytes 0-1 unused 

2-3 numeric parameter, if any (half word binary) 

PAR6 byte unused 

1-2 message number (hexadecimal) 
3 bit on if text to be inserted 

1 on if statement number to be inserted 

2 on if numeric parameter to be inserted 

3 on if dictionary reference to be inserted 
4-7 severity code of message 

X^ 1 Termination 

X'H* Severe 

X^' Error 

X^' Warning 
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T T 

Hex- 
Offset 



Name 



-+~ 



Details 



ZUERR 



30 



PAR7 either: 

byte unused 

1-3 address of text to be inserted 
or: byte 0-1 unused 

2-3 dictionary reference to be inserted 

PAR8 bytes 0-1 unused 

2-3 length of text to be inserted 

Parameters Returned : None 
Notes 

1. When the message is printed the numeric parameter is converted 
to decimal and inserted into the message. PARS is unused if bit 
2 of byte 3 in PAR6 is off 

2. If bit 1 is on, the statement number is taken from the ZSTAT 
slot in the communications region at the time ZUERR is called 

3- Bits and 3 are mutually exclusive and if both are on in a call 
to ZUERR, the routine aborts 

4. If bit 3 is on, the dictionary reference from PAR7 is inserted 
into the message dictionary entry. The error message phases 
pick up the BCD from the dictionary entry, indicated by the 
reference, and insert it into the message 

5. If bit is on, text is picked up from the address given in 
PAR7. This text is in compiler internal representation. The 
length of the text is taken from PAR8. The maximum length of 
text inserted into a message is 10 characters. If the length 
given is greater than 10 the text is truncated to 10 characters. 
If the text has been truncated it is enclosed in quotes in the 
message 



ZUGC 



10 



Description : Gets scratch storage 

Parameters Passed 

PARI bytes 0-3 count of 512 byte blocks of storage required 

Parameters Returned 
PARI byte unused 

1-3 address of allocated scratch storage 
PAR2 bytes 0-1 unused 

2-3 bytes of storage allocated 



ZULF 



70 



Description : Writes record to object module file (PLILOAD) 

Parameters Passed 
PARI byte unused 

1-3 address of 72 byte area containing record to be 
written 

Parameters Returned : None 
Notes : 

1. If an uncorrectable I/O error occurs on this data set the option 
LOAD is switched off, a message is produced, and the compilation 
continues without producing an object module 

2. The last 8 bytes of the record will contain: 

bytes 73-76 name of object module, taken from ZPRNAM in the 

communications region. This is set from the first 
four characters of the first entry label of the 
external procedure 
77-8 sequence number 
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Name 



T T' 

Hex. 
Off set 



ZUPL 






ZURC 



ZUTXTC 



08 



18 



14 



Details 



Description : Puts record out to PLILIST Data Set 

Parameters Passed 
PARI byte unused 

1-3 address of area defining print line 

PAJR3 bytes 0-3 zero if no secondary heading to be printed 

or address of area defining secondary heading line 



Parameters Returned: 



Notes: 



None 



1. Paging action is performed automatically 

2, Format of area containing print line is: 
byte x B 00 f 

1 total length of area C binary) 

2 ASA control character 

3 line to be printed-EBCDIC, variable length, maximum 132 
characters 



Description : Releases scratch storage got by ZUGC 

Parameters Passed 

PARI bytes 0-3 count of entries to ZUGC to be released (binary) 

Parameters Returned: None 



Note: 



The routine frees all the storage that was allocated by the 



last n calls to ZUGC, where n is given by PARI 

ZURD | 0C I Description : Reads record from PL1INPUT 

Parameters Passed 
PARI byte unused 

1-3 address of area into which record is to be placed 

Parameters Returned 
PAR2 bytes 0-1 unused 

2-3 length of record returned C binary) 



Description : Gets new text block and, optionally, chains it to a 
current block 

Parameters Passed 
PARI byte unused 

1-3 text reference to a current block if new one is 
to be chained 

PAR2 bytes 0-2 unused 

3 X'OO 1 no chaining 

or X'Sn* chaining where n is status required for 
current block 

Parameters Returned 
PARI byte unused 

1-3 text reference to new block 

PAR2 byte unused 

1-3 absolute address of start of new block 

Notes : 

1. The new block is set to a status of •busy* 

2. See ZALTER for definition of status of blocks 



—I 
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APPENDIX I: PLC COMMUNICATIONS REGION 



This appendix contains: 

• A layout of the PLC communications region CCHAPLI) 

• The CHAMGL DSECT for the merge list 

• The CHAPLI DSECT for the PLC communications region 

< . . 4 bytes 



CFBAA7 



NOT USED 



PLIFTP 
(Footprint) 



PLISOD 

(Diagnostics 

on SYSOUT) 



PLILMN 
(LIMEN) 



PLIBRV | PLIERR 

(BREVITY) 1 (Error level code) 



PLIDDN 
(Pointer to SOURCEDS DCB) 



PLILDN 
(PointerR to listing DCB) 



P LI MAC 
(Pointer to MACRO DSNAME) 



PLIMRG 
(Pointer to MRGLST block) 



PLIPDS 
(Pointer to merge DSNAME) 

._. . — . r . . T T 

PLIPRT J PLILDS | PLICON ] PLILOD 
(PRINT Option) | (Listing Option) | (CONTINUE Option) | (LOAD Option) 
| | | (Not used) 

. . JL . . JL . . i 



PLINAM 
(PLI Module Name) 



t~ 



(8 bytes) 



PL I EXP 
(Pointer to EXPLICIT parameter list) 



PLIXDS 
(Pointer to XFERDS name) 



Figure 19. PLC Communications Region 



DSECT for MERGE MODULE LIST (CHAMGL) 



—I 



-H 



-H 
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I DSECT for PLC COMMUNICATION REGION (CHAPLI) 



LOCATION 


INSTRUCTION ADDR 1 


ADDR 2 STATEMNT 


SOURCE 










0019200 


COPY CHAPLI 




63 00000 


+ 


CHAPLI 


DSECT 




00000 




+ 


PLIFTM 


DS 


F 




63 00003 


+ 


PLIFTP 


EQU 


PLIFTM+3 




00000000 


+ 


PLIFT0 


EQU 


X»00« 




00000004 


+ 


PLIFT1 


EQU 


X'Ol' 




00000008 


+ 


PLIFT2 


EQU 


X'08' 




oooooooc 


+ 


PLIFT3 


EQU 


X'OC 




00000010 


+ 


PLIFT4 


EQU 


X' 10' 




00000014 


+ 


PLIFT5 


EQU 


X' 14' 




00000018 


+ 


PLIFT6 


EQU 


X« 18' 




0000001C 


+ 


PLIFT7 


EQU 


X' 1C 




00000020 


+ 


PLIFT8 


EQU 


X'20' 




00000024 


+ 


PLIFT9 


EQU 


X'24* 


63 00004 




+ 


PLISOD 


DS 


XL1 




00000000 


+ 


PLISD1 


EQU 


X'OO* 




00000001 


+ 


PLISD2 


EQU 


X ' 1 * 


63 00005 




+ 


PLILMN 


DS 


CL1 




000000C9 


+ 


PLILM1 


EQU 


C»I' 




000000E6 


+ 


PLILM2 


EQU 


C'W 




0Q0000D5 


+ 


PLILM3 


EQU 


C'N 1 




000000E7 


+ 


PLILM4 


EQU 


c x f 




O000O0E3 


+ 


PLILM5 


EQU 


C'T* 


63 00006 




+ 


PLIBRV 


DS 


CL1 




O00000D4 


+ 


PLIBR1 


EQU 


C'M« 




O000O0E2 


+ 


PLIBR2 


EQU 


C'S' 




000000C5 


+ 


PLIBR3 


EQU 


C'E' 




OOO0OOE3 


+ 


PLIBR4 


EQU 


C'T' 




0OO0OOE7 


+ 


PLIBR5 


EQU 


C'X' 


63 00007 




+ 


PLIERR 


DS 


XL1 




00000000 


+ 


PLIER0 


EQU 


X'OO 1 




00000004 


+ 


PLIER1 


EQU 


X'04» 




00000008 


+ 


PLIER2 


EQU 


X'08' 




OOOOOOOC 


+ 


PLIER3 


EQU 


x'oc 




00000010 


+ 


PLIER4 


EQU 


X" 10* 


63 00008 




+ 


PLIDDN 


DS 


F 


63 0000C 




+ 


PLILDN 


DS 


F 


63 00010 




+ 


PLIMAC 


DS 


F 


63 00014 




+ 


PLIMRG 


DS 


F 


63 00018 




+ 


PLIPDS 


DS 


F 


63 0001C 




+ 


PLIPRT 


DS 


XL1 




00000000 


+ 


PLIPR0 


EQU 


X^O" 




00000041 


+ 


PLIPR1 


EQU 


X*41 ' 




00000061 


+ 


PLIPR2 


EQU 


X'61 » 


63 0001D 




+ 


PLILDS 


DS 


XL1 




00000000 


+ 


PLILS0 


EQU 


X'OO' 




00000001 


+ 


PLILS1 


EQU 


X'01 * 


63 0001E 




+ 


PLICON 


DS 


XL1 




00000000 


+ 


PLICN1 


EQU 


X'OO' 




00000003 


+ 


PLICN2 


EQU 


X»C3' 


63 0001F 




+ 


PLILOD 


DS 


XL1 




00000000 


+ 


PLILD1 


EQU 


X'OO' 




00000001 


+ 


PLILD2 


EQU 


X«01 • 


63 00020 




+ 


PL IN AM 


DS 


CL8 


63 00028 




+ 


PLIEXP 


DS 


A 


63 0002C 




+ 


PLIXDS 


DS 


A 



DSECT FOR COMMUNICATION BUCKET 

FOOTPRINT OF PATH THROUGH PLC 

PLC NOT PREVIOUSLY INTERRUPTED 

EDITOR END REQUIRED 

DATA SET CLEANUP REQUIRED 

PL/1 COMPILER INVOKED 

DATA SET CLEANUP REQUIRED 

ODC END REQUIRED 

DATA SET CLEANUP REQUIRED 

CFBAK END RTN REQUIRED 

DATA SET CLEANUP REQUIRED 

PLC CALL COMPLETE 
DIAGNOSTICS ON SYSOUT OPTION 

DIAGNOSTICS ON SYSOUT 

NO DIAGNOSTICS 
VALUE OF "LI MEN" 

INFORMATION MESSAGES 

WARNING MESSAGES 

ERROR MESSAGES 

SERIOUS ERROR MESSAGES 

TERMINAL ERROR MESSAGES 
VALUE OF "BREVITY" 

MESSAGE ID ONLY 

NORMAL MESSAGE TEXT 

EXTENDED MESSAGE TEXT 

STANDARD TEXT-NO MSG ID 

EXTENDED TEXT-NO MSG ID 
ERROR LEVEL CODE 

NO ERRORS DETECTED 

TYPE 1 ERRORS 

TYPE 1 ERRORS - ERRORS 

TYPE 2 ERRORS - SEVERE 

TYPE 3 ERRORS - TERMINAL 
POINTER TO SOURCE DCB 
POINTER TO LISTING DCB 
POINTER TO MACRO DATA SET NAME 
POINTER TO FIRST BLOCK OF MERGE LIST 
POINTER TO MERGE DATA SET NAME 
PRINT OPTION 

NO PRINT 

PRINT - NO ERASE 

PRINT WITH ERASE 
LISTING DATA SET OPTION 

LISTING DATA SET 

LISTING ON SYSOUT 
CONTINUATION OPTION 

NO CONTINUATION 

CONTINUE COMPILATIONS 
LOAD OPTION 

LOAD - CONVERSION REQUIRED 

NO LOAD - COMPILE ONLY 
NAME OF CURRENT OBJECT MODULE 
POINTER TO EXPLICIT PARAM LIST 
POINTER TO XFERDS NAME 
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APPENDIX J: 



ODC — INPUT RECORD FORMAT 



This appendix contains: 

• card image formats of records which are input to ODC 

• a list of tables and DSECTs used by ODC 



ESP Input Record (Card Image) 



r r- 

I 1 I 



2-4 | 



5-10 



-j. j. . T ^ 

| ll f 12 | 13,14 | 15,16 J 



17-72 



I 



73-80 



I 

l Not used 



ESP Data — see below 



Blank if all ESD items are LD 



i — ESD_IDENTIFIER of first ESD item (other 

Blank 



than LD) 



L 

l Blank 

L ESD 

._ 12-9-2 (0000 0010) 



— Number of bytes of ESD data 



ESD Data Item 



1-8 



| 9 | 10-12 | 13| 14-16 | 



T . 

I Zero - if length is on END card. 

j Length of control section (if type is: SD,PC,CM) 

j. Identifier of SD entry containing name 

|._. Blank if type is ER 

l Length of pseudo- register (PR) 

— — Blank - Alignment Factor for type PR 

l 24 bit address (SD, PC,LD,LR) 

i Type - Hex (00=SD, 01=LD, 02=ER, 03=LR,04=PC,05=CM,06=PR) 

j. Name — when type is: SD,LD,LR,ER,CM,PR 

l Blank — when type is: PC or blank CM 
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Text Input Record (Card Image ) 



r t -t t t ' — r t t— — r 

1 1 | 2-4 | 5 | 6-8 I 9-10 | ll r 12 j 13,14 | 15,16 | 

L— .._ -L-^. . X_^_X_,. X_^ .. X— .. X-..,. _X_- _— L. 



17-72 



i 

_x_ 



73-80 



I 



i I 

| l — Not used 

I 

i Text data (machine 

language code ) 

ESP Identifier of SD for control 
section of this text 



l ._ Blank 



l Number of bytes of text data 

l_- . Blank 

L — 24 bit address of first byte of text data 

Blank 



l TXT 

12-9-2 (0000 0010) 



RLD Input Record (Card Image ) 



r t T" 

| 1 | 2-4 1 



_ T ... — T T . 

I 11-12 j 13-16 | 



5-10 



17-72 



L-.-.-X-.. x-^. x_ T x«,, 









73-80 | 



l Not used 



t 

L- — . — RLD data - see below 

l Blank 

*- — Number of bytes of RLD data 



t Blank 

i rld 

L 12-9-2 (0000 0010) 
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r T T _ T 1 

|1,2|3,4|5|6,7,8| RLD data item 

I I 

| L — Assigned address of address constant 

I 

i- Flaq field — (TTTTLLSTn) 
TTTT=type 
O000=non-branch 
0001=branch 
0011=pseudo register cumulative length 

LL=length of address constant 

01=2 bytes 

10=3 bytes 

11=4 bytes 



L Position pointer (P) 



S=Direction of Relocation 
0=positive (+) 
l=negative (-) 

Tn=type of next RLD item 
0=next RLD item has a dif- 
ferent R or P pointer? 
they are present in the 
next item. 
l=next RLD item has the 
same R and P pointers, 
hence they are omitted. 



ESDID of SD for control section that contains the 
address constant 



- Relocation pointer (R) - ESDID of CESD entry for the symbol being referred to. 

Zero (00) if type= PR cumulative length 



END Input Record - Type 1 (Card Image) 



r T T _ — r T . 

| 1 | 2-H | 5 | 6-8 I 



_— .—.A— ——_— . 



9-14 |15 f 16| 



17-28 






i 



1 29-32 I 33-80 | 






-Not used 



L — Control section length for con- 
trol section whose length was 
not specified in SD ESD item, 
byte 29 is binary zero if length 
is present. 



L-Blank 



i- ESDID of SD item for this control section that 
contains the address specified in bytes 6-8. 



i - Blank 
L - 24 bit address of entry point (optional) 
L-Blank 



«-- END 
L-12-9-2 (0000 0010) 
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I Load Data Set: Error Record CCard Image) 



- T _. T - 

1 13 I 



1 1-4 I 

i ^ x. 



5-12 



14-80 



i 

i 

! 

I 

j._ X f 00 - No errors 

I 

j. X'04" Warning messages 

1 

j. — _ — x*08 f Error messages 

i 

j. X f 0C f Severe error messages 

i 

l X'lO' Terminal error messages 

L — Double precision fixed-point number resulting 

from issuing a REDTIM macro instruction 

i c" VID" Identifies load data set error record 



I 



Not used 



TABLES AND DSECTS USED BY ODC 



The ODC routine uses the following system DSECTS and associated tables. Of these, CHAP- 
LI and CHAMGL are used exclusively by PL/I, and can be found in Appendix I of this manu- 
al. The rest may be found in IBM System/360 Time Sharing System, System Control Blocks 
Program Logic Manual , Form Y28-2011. 

CHADCB - to open and close data sets 

CHATDT - to find the job library and determine whether a data set exists 

CHAPLI - for communication with PLC 

CHAMGL - to access the input merge list 

CHAPOD 

CHAPOM 

CHAPOE 

CHADHD 



to search the partitioned data set directory in order 
to build a merge list based on the members of the 
job library 
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APPENDIX K: COMPILER OUTPUT MODULES 



The PL/I compiler is contained in six link-edited output modules. 
This appendix provides: 

• a table of the six compiler output modules, indicating their functional names and 
the name of the VCON CSECT in each that holds the addresses of the modules within 
that output module, and 

• a table organized by output module name, relating logical phases, physical phases, 
and modules. 



Compiler Output Modules 







~i 


| Output Module 
f 

| CFBAC 
| CFBAD 
| CFBAE 
J CFBAF 
| CFBAG 
| CFBAH 
l n . ..... _ .. ,. 


| Functional Name | VCON CSECT 


i 

H 

f 


1 Control Output Module 1 
| Main Output Module | IEMAU 
| First Preprocessor Output Module I IEMAW 
| Second Preprocessor Output Module | IEMAX 
1 Optimization Output Module I IEMAY 
| Interphase Dumping Output Module | IEMAZ 


Compiler Phases and 


Modules 




| output | Logical 
| Module I Phase 

| CFBAC | 


| Physical | Modules) Description 
1 Phase J | 


1 
I 


| | AA J Controls running of compiler 


"1 




| | AC J Writes records on intermediate file 
| | | PLIMAC 






| ( AE j End of read- in phase 






| | AF | Compiler default options 






( | AG j Closes PLIMAC for output, reopens for 
1 1 1 input 






I I AK | Closing phase of compiler 






| | AL j Controls dictionary compilation 






| | XZ j Builds conversational diagnostics 




I CFBAD | 


| | AB j Performs detailed initialization 
| j AM [ Phase marking 




| | Read- In 


| | CA j Read-in phase common routines 
| | CC j Read-in phase common routines 




1 X 


| j CE | Keyword Tables 


J 
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Output 
Module 






CFBAD 
(cont) 



Logical 
Phase 



Read- In 
(cont) 



Dictionary 



Pretranslator 



Physical 
Phase 



CI 

CL 

CO 

CS 
CV 

ED 

EG 
EI 
EL 
EP 

EW 

EY 

FA 
FE 
FI 

FK 
FO 

FQ 

FT 
FV 

FX 

Fl 

GA 

GB 



Modules 



CG f CI 

CK 

CL, CM 

CN 

CO, CP 

CR 

CS, CT 

CV,CW 

ED 

EF, EG 
EH,EI,EJ 
EK f EL,EM 
EP 

EV,EW 

EX,EY f EZ 

FA f FB 
FE f FF 
FI 

FK 
FO,FP 



Description 



Read-in first pass 

Keyword Tables 

Read- in second pass 

Keyword tables 

Read-in third pass 

Keyword tables 

Read- in fourth pass 

Read- in fifth pass 

Initialization, subroutine package 
for Declare Pass 2 

Initialization 

First pass over DECLARE statements 

Second pass over DECLARE statements 

Constructs dictionary entries for 
PROCEDURE, ENTRY and CALL statement 

Constructs dictionary entries for 
LIKE attributes 

Constructs dictionary entries for 
ALLOCATE and for explicitly qualified 
based variables. 

Checks context of source text 

Changes BCD to dictionary references 

Checks validity of dictionary 
references 

Rearranges attributes 

Constructs dictionary entries for 
ON-conditions 



FQ | Checks validity of PICTURE chain for 
PL/ I functions and the TRANSLATE and 
VERIFY functions 

FT,FU | Dictionary house-keeping 

FV,FW | Merges second file statements into 
text 

FX,FY # FZ| Processes identifiers for cross 
reference and attribute listing 

Fl | Determines if syntax check should 
terminate compilation 

GA I Constructs DECLARE and OPEN control 
blocks 

GB,GC | Modifies I/O statements 

Appendix K: Compiler Output Modules 471 



Page of GY28- 2051-0, Issued September 15, 1970 by TNL GN28-3161 



r ~T 

Output 

Module 






CFBAD 
(cont) 



Logical 
Phase 



Pretranslator 
(cont) 



Translator 



Aggregates 



Pseudo-Code 



Physical 
Phase 



GK 
GO 

GP 
GU 
HF 
HK 
HP 
IA 
IG 

IK 

IL 

IM 

IT 
IX 
JD 
JI 
JI 
JK 
JP 
JZ 
LB 

LD 



LG 


| LG f LH 


LR 


i LR 


LS 


LS,LT f LU 


LV 


| LV 


LW 


| LW 



Modules 



GK 
GO 

GP f GQ f GR 

GU f GV 

HF,HG 

HK,HL 

HP 

IA f IB,IC 

IG 

IK 

IL 

IM f IN, 
IP,IQ 

IT 

IX 

JD 

JI f J J. 

JI f JK,JL 

JK, JL, JM 

JP 

JZ 

LB,LC 

LD 



Description 



Checks parameter matching 

Preprocessor for second check on 
parameters 

Second check on parameters 

Processes CHECK condition statements 

Processes structure assignments 

Processes array assignments 

Processes items defined using iSUBs 

Stacks operators and operands 

Processes array and structure argu- 
ments and built-in functions 

First part of preprocessor for gener- 
ic functions 

Second part of preprocessor for gen- 
eric functions 

Processes generic functions 

Processes function triples 

POINTER and AREA checking 

Evaluates constant expressions 

Structure pre- preprocessor 

Structure preprocessor 

Structure processor 

Checks DEFINED chains 

Checks for abort condition 

Generates triples to initialize AUTO- 
MATIC and CONTROLLED scalar variables 

Constructs dictionary entries for 
initialized STATIC scalar variables 
and arrays 

Expands DO loops 

Fixed decimal expression optimization 
and initialization for phase LS 

Converts expression triples to 
pseudo-code 

Provides string handling facilities 

Initialization for phase LX 
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Output 
Module 



CFBAD 
(cont) 



Logical 
Phase 



Physical 
Phase 



Pseudo-Code 
(cont) 



LX 

MA 
MB 

MD 

ME 
MG 

MI 
MK 



ML 


ML 


MM 


MM f MN f MO 


MP 


MP 


MS 


MS,MT 


NA 


NA 



NG 
NJ 

NM 

NT 

NU 

OB 



Modules 



LX,LY 

MA 
MB,MC 

MD 

ME 

MG f MH 

MI,MJ 

MK 



NG 
NJ,NR 

NM f NN 

NT 
NU f NV 

OB,OC 



OD 


| OD 


OE 


| OD f OE f OF 


OG 


| OG f OH 


0M 


| OM,ON,00 



Description 



— H 



Converts string triples to 
pseudo-code 

Constructs pseudo-code for functions 

Constructs pseudo-code for 
pseudo-variables 

Scans for ADDR and STRING functions 
and generates code for each 

Constructs pseud o- code for in-line 
functions 

Constructs pseudo-code for in-line 
functions 

Constructs pseudo-code for in-line 
functions 

Constructs pseudo-code for in-line 
functions 

Processes generic entry names 

Processes CALL and function procedure 
invocations 

Reorders BUY and SELL statements 

Constructs pseudo-code for subscripts 

Generates pseudo-code for branches 
RETURN triples, etc. 

Generates library calling sequences 
for DELAY and DISPLAY statements 

Generates library calling sequences 
for executable RECORD- oriented input/ 
output statements 

Generates library calling sequences 
for executable STREAM- oriented input/ 
output statements 

Preprocessor for NU 

Generates library calling sequences 
for data/format lists 

Processes compiler functions and 
ps eudo-variables 

Pseudo-code assignment 

Constructs pseudo-code for 
assignments 

Generates library calling sequences 

Generates pseudo-code for data type 
conv ers ions in- 1 in e 






Appendix K: Compiler Output Modules 473 



Page of GY28-2051-0, Issued September 15 f 1970 by TNL GN28-3161 






Output 
Module 



CFBAD 
(cont) 



Logical 
Phase 

Pseudo-code 
Ccont) 



Storage 
Allocation 



Physical | Modules 

Phase 

OP,OQ 



Register 
Allocation 



Final 
Assembly 



Error 
Editor 



OP 

OS 

PA 
PD 
PH 

PL 
PP 
PT 

QF 
QJ 
QU 

QX 

RA 
RD 
RF 

TF 
TJ 
TO 
TT 
UA 

UD 

UE 

UF 
UI 
XA 



OS,OT,OU 

PA 
PD 

PH 

PL,PM 

PP,PO 

PT,PU,PV 

QF,QG,QH 

QJ,QK,QL 

QU 

QX 

RA,RB,RC 

RD 

RF,RG y RH 

TJ,TK 
TO,TP,TQ 
TT f TU 
UA # UB f UC 

UD,UB,UC 

UE,UB,UC 

UF,UG,UH 
UI,UG,UH 
XA 



XA f XB 
± 



Description 



Generates pseudo-code for further 
in-line conversions 

Converts constants to required 
internal form 



Puts eligible DSA's into STATIC 

First STATIC storage allocation phase 

Second STATIC storage allocation 
phase 

Constructs symbol tables and DEDs 

Sorts AUTOMATIC chain 

Allocates AUTOMATIC storage 

Constructs prologues 

Allocates DYNAMIC storage 

Aligns misaligned operands and pro- 
cesses half word binary operands 

Lists lengths of aggregates 

Processes addressing mechanisms 
Flags branches for optimization 
Allocates physical registers 

Assembly first pass 

Optimization 

Produces ESD cards 

Assembly second pass 

Final assembly initial values, first 
pass 

Generates RLD and TXT cards to set up 
dope vectors for STATIC DSAs 

Final assembly initial values, second 
pass 

Produces listings 

Completes final assembly listings 

Determines whether there are 
diagnostic messages to be printed. 

Dummy module 
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r t 

Output 
Module 



Logical 
Phase 
| 



CFBAE 



CFBAF 



CFBAG 



CFBAH 



Compi le-Time 
Processor 



Optimization 



Physical 
Phase 



BM | 


BM,BN 




BO f BP,BV 


EW 




EC | 


BC,BE f BF 


BG 


BG f BI f BJ 


KA 


KA,KB 


EC 


KC f KCl 


KE 


KE,KEl 


KG 


KG,KG1 


KG 


KJ 


KN 


KN 


KO 


KO,KP,KQ 


KT 


KT 


KU 


KU,KV 




AD 




| AH 




| AI f AJ 




| AT 



Modules 



XA f XC 

XF 

XG r YY 

BX 
AS 

AV 



Description 



Controls the printing of messages 

Message address blocks 

Contain the diagnostic messages 

48~character set preprocessor 

Resident phase for compile -time 
processor 

Initialization phase for compile-time 
processor 

Error message printout phase 

Diagnostic messages 

Clean-up phase for compile-time 

processor 

Initial scan and translation phase 

for compile-time processor 

Final scan and replacement phase for 
compile-time processor 

Table handling and initialization 

DO t empor a r i e s 

DO MAP build 

DO examine 

SUBS TABLE build 

Initialization 

Subscript optimization 1 and 2 

SCAN utility 

Merge patches and loop control 

Performs interphase dumping as speci- 
fied in the DUMP option 

Format annotated dictionary dump 

Format annotated text dump 

Tracing routine 
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INDEX 



abbreviations used during 

compilation 411-419 
abnormal termination 8-9 
absolute code, instruction formats 404 
accumulator register 52 
additions to text 3 
adjustable bounds 24-25 
ADV (see array dope vector) 
aggregate length table 53 
aggregates logical phase 35 

aggregates, RDV for CONTROLLED or BASED 4 6 
aliasing, of variables 37 
alignment, by structure processor 35-36 
ALLOCATE chain 20 
annotated dictionary dump 16 
annotated text dump 16 
AREA 16 

argument markers 41 
arithmetic registers 40 
array bounds 22 
array dope vector (ADV) 29 
array multipliers, calculated in structure 

processor 35-3 6 
arrays 

of string dope vectors 36 

of strings, calculations with VARYING 
attribute 3 6 
assigned registers 55 
ASSIGNMENT triples 48 
ATR option 29 
attribute collection area 25 

scanned for SETS 27 
attribute list, scanned 24 
attributes 

consistency 20 

consistency analyzed 21 

dictionary entries 19 

inconsistent 24 

invalid 24 

syntax checking in read-in phase 22 

test for consistency 22 

when printed 30 
AUTOMATIC chain 28 

housekeeping 29 

in structure processor 36 

scan in pseudo-code phase 40 

VDA 51 
auxiliary storage 3-4 



base registers 55 

based variable expression (BVEXP) 29 

BASED variables, RDV 46 

batch compilation 17 

BCD, translation 16 

BEGIN statements, count 20 

block control area 8 

block header chains 24 

block nesting levels 21 

block size 

dictionary 8 

text 8 



bound slot 29 

boundary alignment, by structure 

processor 36 
built-in function handler 19 
built-in functions 

EMPTY 32 

generic 24 

non-generic 24 

NULL 31 

NULLO 31 

scan for 43 
BUY ASSIGN statements, scan in pseudo-code 

phase 47 
BUY statement 32 

scan in pseudo-code phase 47 
BUY triples, in pseudo-code phase 44 
BVEXP (see based variable expression) 
BXH instruction, used to generate 

pseudo-code 37 
BXLE instruction, used to generate 

pseudo-code 37 
BY NAME option, in pretranslator phase 30 



CALL chain 20 
CCCODE 17 
chains 26 

ALLOCATE 20 
AUTOMATIC 38-39 

housekeeping 28-29 
in structure processor 35-36 
scan in pseudo-code phase 41 
VDA region 51 
block header 24 
CALL 20 
circular 24 

COBOL, in preprocessor 36 
constants 28,48-49 
constructed by read -in 20 
CONTROLLED 29 

in structure processor 36 
DECLARE statements 20,26 
DEFINED scan 36 
error 57 
hash 24 
picture 25 

validity check 28 
PROCEDURE-ENTRY BEGIN 20 
STATIC 29,49-50 

in structure processor 36 
scan of external section 56 
SUBS TABLE 39 
symbol variables 50 
type 1 entry 56 
chamelon dummy argument 35 
chamelon temporaries 31-32 
character translation 8 
CHAR48 option 9,17-19 
CHECK lists, formal parameters 28 
circular chains 
extended 2 4 
initialized 24 
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cleanup phase 18 

CLOSE statements, parameter list 46 

closing routine 17 

CNVC macro 48 

COBOL chain, mapped in preprocessor 

phase 35 
COBOL option, in ENVIRONMENT string 31 
code byte 

for TASK option 31 

G00B 27 

GOTO 27 

statement introduction 27 

text string 3 
code 

for prologues and epilogues 4 29-434 

library call 35 

compiler completion 8-9 

dictionary 16 
comments, removed from input text 20 
common data space 37 
commoning of subscripts 37-38 
communication between phases 3-4,8 
communication with control 

program 1-2,11-13 
communications region 

contents 4 

dictionary block 4 
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scanned 23-24 

stored in dictionary 4 

XREF 29 
ORDER, default setting 37 
organization, diagram 3 
original input 18 
output modules 7 

table 470-475 
output string 

from compile-time processor 21 

in read- in phase 20 
output, of read-in phase 20 
overlay defining 36 

mixed 36 

scalars 36 

undimensioned structures 36 



padding, calculation in structure 

processor 36 
parameter description, in entry 

declaration 32 
parameter list 

DISPLAY statements 45 

for library call initialization 46 

for OPEN and CLOSE statements 46 

library calls 45 

null arguments 45-46 

WAIT statements 45 
parameter matching 23 
parameter registers 40 
parameters, of diagnostic messages 20 
PARTIAL SAFE/UNSAFE boundaries 38 
patch code 

in nest of loops 37 

in optimization phase 37 
patch file 37 

PEXP (see pointer expression) 
PEXP statement 27 
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in pseudo-code 401 
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text formats 
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A change to the text is indicated by a vertical line to the 
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Summary of Amendments 

The major change reflected in this TNL is the addition of 
module Fl for handling the syntax check option. 

Other changes include the addition of several new messages, as 
well as minor technical corrections. 



Please file this cover letter at the back of the manual to pro- 
vide a record of changes. 
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Summary of Amendments 

1. Module AT has been added to provide a debugging facility 
known as TRACE. 

2. The PRV data set has been eliminated. ODC no longer 
resolves nonstandard QCONs, since the dynamic loader reco- 
gnizes QCONs. 

3. Module CFBAK has been added to give the user the option of 
transforming implicit calls to explicit calls. 

4. PLC recognizes two new operands to the PLI command, EXPLI- 
CIT and XFERDS, which indicate the need for a call to 
CFBAK. PLC also recognizes a new PLCOPT option, NOCONV, 
which indicates that only CFBAK, and not ODC or the com- 
piler, should be invoked. 

5. If the default value PLIPACK is set to Y, ODC packs all 
CSECTs of the object module on external storage. If PLI- 
PACK is set to P, noncommon static external CSECTs smaller 
than 409 6 bytes, text CSECTs, and static internal CSECTs 
are packed. If PLIPACK is any other value or no value, no 
CSECTs are packed. 
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6. Other changes include the addition and deletion of mes- 
sages, as well as minor technical corrections. 



Please file this cover letter at the back of the manual to pro- 
vide a record of changes. 



